#!/usr/bin/perl
$|=1;

`/bin/stty -echo`;

$passwd = 1;
$again = 0;
while ($passwd ne $again) {
	print "Enter a locking password:";
	$passwd = <STDIN>;
	print "\nAgain:";
	$again = <STDIN>;
}
print "\nScreen locked\n";

$again = $passwd . " ";
$SIG{'TERM'} = $SIG{'INT'} = $SIG{'TSTP'} = $SIG{'STOP'} = 'Signal';

while ($passwd ne $again) {
	sleep 1;
	print "\nPassword:";
	$again = <STDIN>;
}

print "\nAccepted\n\n";
`/bin/stty echo`;
exit(0);

sub Signal {
	print "\nPassword:";
}