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

##</code><code>##

my $author = "Your Name Here";