Select Code to Download

#/usr/bin/perl -w
use strict;
...
    print "\7";
   }
}

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

# check for some event
#sub some_event { ... }

Use of uninitialized value in pattern match (m//) at clientt.pl line 1
+0. <br>
Use of uninitialized value in concatenation (.) or string at clientt.p
+l line 10<br>