# Grab username from PC:
  my $author= "$^O user";
  if ($^O =~ /mswin/i)
  { 
    $author= $ENV{USERNAME} if defined $ENV{USERNAME};
  }
  else
  { 
    $author = "$first $mid $last"; 
  }