Select Code to Download

    foreach my $file (<passwd.*>){
    open (PASSWD,"$file");

    $nf="file1";
    open (NEWFILE, ">$nf");

    while (<PASSWD>) {
            ($login, $passwd, $uid, $gid,
...
    foreach $login ($SKIP) {
        next if $login eq $SKIP;
    }

    @SKIP = ('adrian','adm','sys','alcatel');
    delete @USERS {@SKIP};
    foreach $login (sort keys %USERS) {
        ...
    }

    #next if ($login =~ /adrian|adm|sys|alcatel/);

  
        print NEWFILE "$login\n";
        }
        close (NEWFILE);