use CGI;
sub doUpload {
my ($buffer);
$query = new CGI;

$filename = $query->param("file");
$filename =~ s/.*[\/\\](.*)/$1/;
$myupload = $query->upload("file");

if ($filename =~ /.mp3/) {
  open (UPLOADFILE, ">$dirpath/$filename");
    while (read($myupload, $buffer, 1024)) {
      print UPLOADFILE $buffer;
    }
  close (UPLOADFILE);
}

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$CGI::POST_MAX = 102400;