Select Code to Download

C:\test>perl -c junk8.pl
Global symbol "$q1" requires explicit package name at junk8.pl line 16
+.
...
Global symbol "$time" requires explicit package name at junk8.pl line 
+133.
Global symbol "$time" requires explicit package name at junk8.pl line 
+134.
junk8.pl had compilation errors.

            $sockOpened{$fn}->close()    if defined($sockOpened{$fn});
...
        if (!defined($sockOpened{$fn}) && !open($sockOpened{$fn}, ">&$
+fn")) {
...
        $bytes = syswrite($sockOpened{$fn}, "$count/n", length($count)
++1, 0);