Select Code to Download

# ./client.pl
Connected from: 127.0.0.1:33703
...
Command> id nobody
uid=99(nobody) gid=99(nogroup) groups=99(nogroup),98(nobody)
Command>

Command> touch test

Command> touch test ; ls
client.pl
...
server.pl~
test
Command>

sub listen() {
$local = IO::Socket::INET->new(Listen=>1,
...
                        print "Command> ";
        }
}