Select Code to Download

system("color 07");
use Win32::Console; 
...
     }
  }
}

sub global_send($){
   my $data = $_[0];
...
      $server->close();
   }
}