#!/usr/bin/perl -wT

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