#!/usr/bin/perl

my $username = "janos";
print "A felhasználó létezik!\n" if getpwnam($username);