Select Code to Download

print $client "username:";
$login=<$client>;
print $login;

#!/bin/perl
use IO::Socket;
...

close $client;
}