Select Code to Download

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

my $author = "Your Name Here";