my $error = undef;
my $directory = "./tmp/";
my $filename = $q->param("filename");
my $origfile = $filename;
$filename =~ s/^.*[\\\/:]//;

if ( open(OUTFILE,'>'.$directory.$filename) ) {
  binmode OUTFILE;
  my $bytesread;
  my $buffer;
  while ( !$error && ( $bytesread = read ($origfile,$buffer,4096) ) ) {
    if ( !(print OUTFILE $buffer) ) {
      $error = 'Could not save uploaded file';
    }
  }
  close OUTFILE; 
  } else {
    # error <- file creation error
    $error = 'Could not create file';
  }
close($filename);

##</code><code>##

my $filename = $q->param("filename");
&uploadFile("$filename");

##</code><code>##

&uploadFile($filename);