#!/usr/bin/env perl

use strict;
use warnings;

print "1. Before calling foo\n";
foo();
print "2. After calling foo\n";
{
    print "3. Beginning of block\n";
    sub foo {print "4. Inside foo()\n";}
    print "5. End of block\n";
}
print "6. After block\n";