Select Code to Download

use IO::Socket; #use the socket module
use strict; #am bit careless so i need this
...
        {close $socket and die "connection closed\n";}
   }
}

use IO::Socket;
use strict;
...
  if($scrap_in=~/'bye'/i or $scrap_out=~/'bye'/i)
    {close $socket and die "connection ended\n";}
}