The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!./perl -w

BEGIN {
    require './test.pl';
}

plan( tests => 1 );

$_ = "foo";
for (qw[a]) { }
$_ = "bar";
is( $_, "bar" );