Select Code to Download

<form action="upload.pl" method="post" enctype="multipart/form-data">
<input type="File" name="file">
</form>

#!/usr/bin/perl

use CGI;
...
      die print "Extraction of $file failed: $!";
    }
  }