Probleme beim Überprüfen einer Grafik

[Markus Trusk]

Hola,
Durch die Tatsache, dass mein Uploadscript umgangen werden konnte, und eine .zip Datei als unbenannte .jpg hinaufgeladen werden konnte, will ich jetzt noch zusätzlich alle Uploads mit Image::Size überprüfen. Zu Testzwecken habe ich mal ein kleines Script ausprobiert:

#!/usr/bin/perl -w

use strict;
use Image::Size;

my ($x, $y) = imgsize('Party.jpg');

($x || $y) eq undef ? print "Undefiniert" : print "$x x $y\n";

Will ich mir die Größe von einer "richtigen" Grafik ausgeben lassen, funktioniert es. Habe ich allerdings eine Grafik, die keine ist, bekomme ich folgende Meldung:

Use of undef without parens is ambiguous....

Schreibe ich '' statt undef bekomme ich: Use of uninitialized value in string line 8.

Dann habe ich das Script noch so geändert:
#!/usr/bin/perl -w

use strict;
use Image::Size;
my ($x, $y) = ('','');
($x, $y) = imgsize('Party.jpg');

($x || $y) eq '' ? print "Undefiniert" : print "$x x $y\n";

..aber die Fehlermeldung ist noch immer die gleiche? Weiß jemand wie man das Problem am Besten lösen kann?
P.S Er schreibt mir zwar die Ausgabe "Undefiniert" zusätzlich zur Fehlermeldung hin, aber ich will, dass es ohne Fehlermeldung funktioniert.

Markus Trusk.