Select Code to Download

open(LASTLOG, 'last|') or die "Try Randal's script instead: $!\n";
my %logins;
...
    my ($name, $from) = split ' ', $_, 3;
    print unless $from eq 'ftp' or $logins{$name}++;
}