unless( my $pid= open( STDOUT, "|-"))
  { while( <STDIN>)
      { chomp; s/(.*)/qq{$1}. "= " . eval($1) ."\n"/e; print; } 
    exit;
  } 
   
     
print "2+2\n";
[download]