#!/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";
}

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