Select Code to Download

#!/usr/bin/perl -l

...
print $m "Hi";

$m->close;

sub pipe_to_fork {
    my $parent = shift;
...
    }
    $pid;
}