Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    }
    close $new_sock;
}

#!/usr/bin/perl -w
use strict;
...
print scalar <$sock>;

close $sock;

$ ./827156_client.pl
Enter Name: 
...
Login ok
Sun Mar  7 01:10:53 2010
DEFAULT