xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/test-w-statement-1 (revision f6aab3d83b51b91c24247ad2c2573574de475a82) 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use vars qw($foo);
7
8$foo = 1;
9
10print "Hello\n";
11
12for my $idx (map { $_ * 10 } 1 .. 10)
13{
14    if ($idx > 17)
15    {
16        $foo = 2;
17        print "Baz\n";
18    }
19}
20
21