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

##</code><code>##

sub asama4 {
    # ok i'm getting and printing of the array (@REVERSESITES) elements , lock() is working
    print $_,"\n" for @REVERSESITES;
    $getnumm = scalar @REVERSESITES;
    $Progress_bars->SetRange(0,$getnumm);
    sub workerss {
        my $urladdr = shift;
...

##</code><code>##

C:\test>\perl32\bin\perl.exe -c 970227.pl
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at 970227.pl line 4
Global symbol "@GENERALURLPOOL" requires explicit package name at 970227.pl line 45.
Global symbol "$result" requires explicit package name at 970227.pl line 45.
Global symbol "@GENERALURLPOOL" requires explicit package name at 970227.pl line 48.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 49.
Global symbol "@GENERALURLPOOL" requires explicit package name at 970227.pl line 50.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 51.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 52.
Global symbol "@GENERALURLPOOL_2" requires explicit package name at 970227.pl line 53.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 55.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 56.
Global symbol "$Win" requires explicit package name at 970227.pl line 57.
Global symbol "$getsinir" requires explicit package name at 970227.pl line 62.
Global symbol "@GENERALURLPOOL_2" requires explicit package name at 970227.pl line 62.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 63.
Global symbol "$getsinir" requires explicit package name at 970227.pl line 63.
Global symbol "$geturl" requires explicit package name at 970227.pl line 64.
Global symbol "@GENERALURLPOOL_2" requires explicit package name at 970227.pl line 64.
Global symbol "@IPPOOL" requires explicit package name at 970227.pl line 65.
Global symbol "$ips" requires explicit package name at 970227.pl line 65.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 67.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 68.
Global symbol "$getsinir2" requires explicit package name at 970227.pl line 69.
Global symbol "@IPPOOL" requires explicit package name at 970227.pl line 69.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 70.
Global symbol "$getsinir2" requires explicit package name at 970227.pl line 70.
Global symbol "$Win" requires explicit package name at 970227.pl line 71.
Global symbol "$ips" requires explicit package name at 970227.pl line 77.
Global symbol "$numbers" requires explicit package name at 970227.pl line 82.
Global symbol "$numbers" requires explicit package name at 970227.pl line 82.
Global symbol "$Win" requires explicit package name at 970227.pl line 83.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 89.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 90.
Global symbol "@IPPOOL" requires explicit package name at 970227.pl line 93.
Global symbol "$Win" requires explicit package name at 970227.pl line 97.
Global symbol "$getnumm" requires explicit package name at 970227.pl line 109.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 110.
Global symbol "$getnumm" requires explicit package name at 970227.pl line 110.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 113.
Global symbol "$Progress_bars" requires explicit package name at 970227.pl line 114.
Global symbol "@URLPOOL" requires explicit package name at 970227.pl line 117.
BEGIN not safe after errors--compilation aborted at 970227.pl line 120.