Select Code to Download

#!/usr/local/bin/perl

...
    #$connection->close;
    return;
}

#!/usr/local/bin/perl
...
        print $_ . "\n";
}
close $socket;