Select Code to Download

system "xv $imagename";

$output=`more datafile`;

$pid=open READER, "programname arguments|" or die "Can't run the progr
+am: $!\n";
while(<READER>){
   $output.=$_;
}
close READER;

$pid=open WRITETOME, "|programname arguments" or die "Couldn't fork pr
+ocess";
print WRITETOME "write this\n";
close WRITETOME;