Here's one problem:

$ perl -we'sub my_print ($) { print @_ } my_print 0,1'
0
$ perl -we'sub my_print { print @_ } my_print 0,1'
01
[download]