Select Code to Download

#!/usr/bin/perl -Tw
    use strict;
    BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
...
    print Client "Hello there, $name, it's now ",
            scalar localtime, $EOL;
    }

#!/usr/bin/perl -w
    use strict;
    use Socket;
...

    close (SOCK)        || die "close: $!";
    exit;