## OLD CODE
sub Store_Results{
    my $data;
    my $mime = uploadInfo($File_Name)->{'Content-Type'};
  
    open (STORAGE, ">$Directory/$File_Name") or die "Error: $Directory/$File: $!\n";

    if($mime !~ /text/){
        binmode ($File_Name);
        binmode (STORAGE);
    }

    while( read($File_Name, $data, 1024) ){
        print STORAGE $data;
    }

    close STORAGE;
}

## NEW CODE
#stores uploaded files
sub storeFiles{
  my($filename, $directory) = @_; #name subroutine variables
    my $data;
    my $mime = uploadInfo($filename)->{'Content-Type'};
    open (STORAGE, ">$directory/$filename") or die "Error: $directory/$filename: $!\n";
    if($mime !~ /text/){
        binmode ($filename);
        binmode (STORAGE);
    }
    while( read($filename, $data, 1024) ){ print STORAGE $data;}
    close STORAGE;
}