#!/usr/bin/perl


use warnings;
use strict;

my $account = "tata";

my ( $name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell, $expire ) = getpwent($account);

if ( defined $uid ) {
   print "User $account uid=$uid.  OK to delete user!\n";
}
else {
   print "User $account does not exist...\n";
}