#!/usr/local/bin/perl -wT

$|=1;

$name = 'myusername';
$uid = getpwnam($name);
print "$uid: $uid;