my $userid= POSIX::cuserid();
my $author = (getpwnam($userid))[6];