fileupload per cgi: was tun, wenn kein file ausgewählt?

[Wolfgang]

Da muss ich widersprechen... denn ohne die if Abfrage ist es mir mit diesem Perl möglich gewesen, eine Datei hochzuladen und nach meinen Wünschen zu benennen...
dieser teil funktioniert also:

die datei-daten holen

my $file = $cgi->param("userfile");

dateinamen erstellen und die datei auf dem server speichern

my $fname = 'file_'.$$.'_'.$ENV{REMOTE_ADDR}.'_'.time;
open DAT,'>'.$fname or die 'Error processing file: ',$!;

Dateien in den Binaer-Modus schalten

binmode $file;
binmode DAT;

my $data;
while(read $file,$data,1024) {
  print DAT $data;
}
close DAT;

#Datei umbenennen und Verschieben
my $newfile;
$newfile = time.$file;
rename($fname,$newfile);
was nicht funktioniert, ist die if-Abfrage zu verwirklichen, denn die Fehlerausgabe sagt mir, die in den if- und else-Fällen angegebenen Variablen sind nicht definiert... Danke für eure Hilfe, Wolfgang