use strict;
use warnings;

foo(1);

sub foo
{
    my ($x) = @);   # why doesn't this generate a syntax error?
    print $x;
}

# Program Output: "Use of uninitialized value $x in print at test.pl line 9."