Verwende bitte use strict; und use warnings; dann würdest du schneller erkennen, was nicht geht.
Verwende doch bitte das Modul CGI, um an das Skript übergebene Parameter auszulesen.
Dateien kannst du mit dem Modul File::Copy und dessen Funktion copy() kopieren.