package main;

my $foo = 1;

sub foobar
{
    $foo++;
}