#!/opt/bin/perl

open(DIR, "ls -1 |") || die "can't read dir: $!\n";

while (<DIR>)
{
    chop;
    $user = $_;
    $user =~ s/\.[a-z][a-z][a-z]$//;
    if (($uid,$gid) = (getpwnam($user))[2,3])
    {
#       print "chown($uid,$gid,$_);\n";
        chown($uid,$gid,$_);
    }
    else
    {
        print "can't getpwnam($user)!\n";
    }
}

close(DIR);