Select Code to Download

my ($new_sock, $pid, $buf);
while ($new_sock = $main_sock->accept()) {
...
EOF              
    }                                               
}

sub execute {
    my $port = 1200;
...
    footer();
    # This all prints if I kill the server
}