Select Code to Download

   open(PASSWD, '/etc/passwd');
   while (<PASSWD>) {
...
   ($login, $passwd, $uid, $gid,$gcos, $home, $shell) = split(/:/);
    #...
   }

open READINGFILE, "data.txt" or die $!;
open LOGFILE, ">>logfile.txt" or die $!;
...
    
    }
}

Global symbol "$domain" requires explicit package name at test.pl line
+ 113.
Global symbol "$IP" requires explicit package name at test.pl line 113
+.
...
Global symbol "$domain" requires explicit package name at test.pl line
+ 115.
BEGIN not safe after errors--compilation aborted at test.pl line 235.
 at test.pl line 235