last | perl -lane 'print unless $F[1] eq "ftp" or $logins{$F[0]}++'