#!/usr/bin/perl


 $cprog = "/tmp/river.out";

use Getopt::Long;
use IPC::Open2;

$ret = GetOptions("f|filename:s");
$process = $opt_f;


	open2 (*README, *WRITEME, $cprog);
#	# print Process id to fortran program

#	$read = system("river.out");

	print WRITEME "$process\n";
#	# seek out an error from f.p.
	$read = <README>;
	close (WRITEME);
	close (README);
 print "Perl: $read:$process\n";