Select Code to Download

print "Hello welcome to the fsclient\n";
    my ($user, $passwd, $host, $port, $command, $numArgs);
    $numArgs = $#ARGV + 1;
...
      
      close($client) or die "$!\n";
      print "connection closed\n";

#!/bin/perl -w
use IO::Socket::INET;
...
         
         print "OK its time to close\n";    
         close($server);