Select Code to Download

my $frompath = "$DATAPATH/documentset/$company/$dept/$doc_id";
my $writetopath = "$EX_DATAPATH/external_gn/$doc_id";
...
copy($untainted_source_path, $untainted_dest_path);

my $upload = &upload_file($g, $q, $untainted_source_path, $untainted_d
+est_path);

sub untaintMe {
  my ($self, $inputArg, $typeArg) = @_;
...
                        
   return @returnArray;
}

sub upload_file() {
  my ($g, $q, $readpath, $writepath) = @_;
...

  return 1;
}