Select Code to Download

test:lamda
beta:alpha

$/ = "\015\012";

$/ = "\012";

$/ = "\012";
open (FILE1, "users.txt") || print "Error occured while opening file";
...
print $client "Sorry this username has been taken, try again!\n\r";
&login;
}

#!/bin/perl
use IO::Socket;
...


close $client;