Select Code to Download

sub GETSHIT {
    sub workder {
        $ips = shift;
...

sub asama4 {
    # ok i'm getting and printing of the array (@REVERSESITES) element
+s , lock() is working
...
    sub workerss {
        my $urladdr = shift;
...

C:\test>\perl32\bin\perl.exe -c 970227.pl
'use Win32::GUI;' is currently exporting constants into the callers sc
+ope. This functionality is deprecated. Use 'use Win32::GUI();' or lis
+t your required exports explicitly instead. at 970227.pl line 4
...
Global symbol "$Progress_bars" requires explicit package name at 97022
+7.pl line 114.
Global symbol "@URLPOOL" requires explicit package name at 970227.pl l
+ine 117.
BEGIN not safe after errors--compilation aborted at 970227.pl line 120
+.