#!/usr/bin/perl

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) 
    = localtime(time);

$month = (January, February, March, April, May, June, July, August, September,
    October, November, Decemver)[$mon];

$user = $ENV{'USER'} || $ENV{'LOGNAME'} || (getpwuid($<))[0];
$fullname = (getpwnam($user))[6];
$fullname =~ s/.*-\s(.*)\(.*//;
$fullname =~ s/,.*//;

substr($user, 0, 1) = tr/a-z/A-Z;
$fullname =~ s/&/$  
