open(LAST, "|last.pl") or die $!;
print LAST "$source";
close LAST;

#in last.pl
$source = <STDIN>;