##

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

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

    return $tokens{MAIN};
}