1*91f110e0Safresh1#!/usr/bin/perl 2*91f110e0Safresh1 3*91f110e0Safresh1use strict; 4*91f110e0Safresh1use warnings; 5*91f110e0Safresh1 6*91f110e0Safresh1use vars qw($foo); 7*91f110e0Safresh1 8*91f110e0Safresh1$foo = 1; 9*91f110e0Safresh1 10*91f110e0Safresh1print "Hello\n"; 11*91f110e0Safresh1 12*91f110e0Safresh1for my $idx (map { $_ * 10 } 1 .. 10) 13*91f110e0Safresh1{ 14*91f110e0Safresh1 if ($idx > 17) 15*91f110e0Safresh1 { 16*91f110e0Safresh1 $foo = 2; 17*91f110e0Safresh1 print "Baz\n"; 18*91f110e0Safresh1 } 19*91f110e0Safresh1} 20*91f110e0Safresh1 21