Grazie.

Volendo potrei anche fare:
die "Errore\n" if ($q->param('file') !~ /^inizio/);

E nomino i file (nel mio caso pdf) con "inizio" ad inizio nome...