Select Code to Download

#!/usr/bin/perl
package main;
...
    }        
     return $self; #This has something to do with it? Return where???
  } }

use IO::Socket;
use Sys::Hostname;
my($ipaddr)=inet_ntoa((gethostbyname(hostname))[4]);
...
        print  $remote  $_;       # Send to Server
               
}#Want to keep the client running.