#!/usr/bin/perl

use strict;
use warnings;

open(PASS,'/etc/passwd') || die 'Nie potrafię otworzyć /etc/passwd';
my $pyt = $ARGV[0];
while(<PASS>) {
	my ($lid,$pp,$uid,$gid,$fname,$home,$shell) = split(":");
	if($fname =~ /$pyt/) {
		print;
	}
}