$ /usr/local/bin/perl -v
This is perl 5, version 12, subversion 1 (v5.12.1) built for x86_64-linux-ld

##</code><code>##

$ /usr/local/bin/perl -e '@ARGV = qw(foo);
foo(@ARGV);
sub foo {
    my $x = shift(@ARGV);
    my $y = shift;
}'
panic: attempt to copy freed scalar 13280e0 to 133a630 at -e line 5.