Select Code to Download

use CGI;
sub doUpload {
...

print "Location: $cgipath?action=success\nURI: $cgipath?action=success
+\n\n";
}

if ($filename =~ /.mp3/) {
  open (UPLOADFILE, ">$dirpath/$filename");
...
    }
  close (UPLOADFILE);
}

-----------------------

$CGI::POST_MAX = 102400;