Select Code to Download

#!/usr/bin/perl -w 

...

do_this_cool_function(-retire=>'early', -payscale=>-55.00, -pizza=>'co
+ld', -beer=>'none');

Bareword "none" not allowed while "strict subs" in use at ./test.pl li
+ne 17.
Unquoted string "none" may clash with future reserved word at ./test.p
+l line 17.
Execution of ./test.pl aborted due to compilation errors.