Select Code to Download

if( my $pid = fork ) {
    print "I am the parent pid ($$), and I'm going to wait for $pid to
+ exit.\n";
...
} else {
    exec(qw(ls -al /tmp)); die "hrm, exec() failed: $!";
}

    # exec(qw(ls -al /tmp)); die ... blah
    open my $out, ">", "filename" or die $!;
...
    print $out $_ while <$in>;
    close $out;
    close $in;