Select Code to Download

    my $foo = undef;  # Variable is initialized.
    print $foo;
    __END__
    Use of uninitialized value in print

    my @foo = qw /bar baz quux/;