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