system "xv $imagename";

##</code><code>##

$output=`more datafile`;

##</code><code>##

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

##</code><code>##

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