Select Code to Download

$final = _upload($localfile,$destination,$filename);
    if ($final > 0)
...
      return 'There was an error with the file you supplied, either it
+ was of 0 bytes size or the system failed!<br /> <a href="javascript:
+history.go(-1);" >Back</a>'.$final;
    }

my $destination = "path";
  my $localfile = $q->param('upload_image');
  my $filename = $q->param('upload_file');

sub _upload {
  my $localfile = shift;
...

  return $final;
}