I don't see how using File::Spec would improve this code, which is essentially what seems to be broken - although I won't know for sure until somebody is kind enough to test it on a mac:

my $inputfile;
print "\nDrag and drop a file here:\n";
chomp ($inputfile = <STDIN>);
$inputfile =~ s/^ *[\"\']?([^\"\']*)[\"\']?/$1/; # strip whitespace an
+d quotes
if (-e "$inputfile") {print "\nOK, file found\n";} else {print "\nERRO
+R: file not found\n";}
[download]