Select Code to Download

#!/usr/bin/perl -w
use IO::Socket;
...
     if (/STOP/i) { last; }
}
close $client;

#!/usr/bin/perl
 use IO::Socket;
...
   }
   close $client;
 }