Select Code to Download

#!/usr/bin/perl
# Pseudo-Perl; some code shortened to ellipses or text.
...
    #<process $line (one line read from server's response)>
}
__END__

$fork_errlvl = 1 unless defined $pid;
die "Error forking client: Reason: $!\n" if $fork_errlvl != 0;

die "..." unless defined $pid;

defined($pid) or die "..."