#!/usr/local/bin/perl
use strict;

my $foo = 1;
my $fum = 1;
print STDERR "variables are now: $foo $fum\n";
&foo();
my $foo = 2;
   $fum = 2;
print STDERR "variables are now: $foo $fum\n";

sub foo {
    print STDERR "variables are now: $foo $fum\n";
}

##</code><code>##

variables are now: 1 1
variables are now: 1 2
variables are now: 2 2