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