Select Code to Download

 #!/usr/bin/perl
 use strict;
...

 } ## end while ( defined $conSocket)

 #!/usr/bin/perl
 use strict;
...

     sleep 1;
 } ## end while (1)