# multiply $x by $y using php
use IPC::Open2;

my $x = 5;
my $y = 7;
my $php = "<? echo $x * $y ?>";

my ($r, $w);
my $pid = open2($r, $w, 'php -q');                                  

print $w $php;
close $w;
my $result = <$r>;
print "$x * $y = $result\n";