Select Code to Download

#tcpserver.pl
use Switch;
...
            print $client_socket $t;
        }            
$socket->close();

#tcpclient.pl
use feature qw(switch say);
...
    print $t;
    $a=$t;
    $socket->close();