1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6my $var = "Test";
7
8sub mysub
9{
10    my $flag = 1;
11
12    $flag = 0;
13
14    print "Foo\n";
15
16    if ($flag)
17    {
18        print "Bar\n";
19    }
20
21    return;
22}
23
24mysub();
25
26$var .= "More";
27
28