sub site_csv() {
    # Get CGI Variables
    CGI::ReadParse(*form);
      my $csv = $form{upfile};
      $csv =~ s/\n/<br>/gi;
      my $note= $form{upnote};

      $tokens{MAIN} = "Included note: $note<br>";
      $tokens{MAIN} .="<br>$csv<br>";

    return $tokens{MAIN};
}