I'm
Juerd, not
vroom :)
You used a die() in your unless-block anyway, so your code will also cause a 500 error. I think having structured code when a simple "or die" suffices is overkill...
I agree on your script being more clear to those who already know another language, but did you learn Perl to code the way you always did? I sure didn't: I learnt perl because I like the perlish way. But that's personal, and I can think of good reasons to code in an unperlish way.
P.S. There's nothing greater than the invisible $_ game - if you know the rules.
2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$