Help for this page
#!/usr/bin/env perl ... print $socket "ls:$dir\n"; close($socket);
#!/usr/bin/env perl ... } close($socket);