Select Code to Download

#!/usr/bin/perl
use utf8;
...
    close($sock);
    }
}

#!/usr/bin/perl
use utf8;
...
    #print STDOUT "The following data received form Server: (\ ".$_[0]
+." \)\n";
    return $_[0];
}