my $uploadfile = param('upload');
   open(FILE, "$uploadfile") or die "error: $!";
   my $source = <FILE>;
   close (FILE);