use strict;      
use warnings;    
                 
my $foo = 'foo'; 
bar();           
                 
$foo = 'bar';    
bar();           
                 
sub bar {        
  print "$foo\n";
}                

##</code><code>##

sub foo1234 {    
                 
use strict;      
use warnings;    
                 
my $foo = 'foo'; 
bar();           
                 
$foo = 'bar';    
bar();           
                 
sub bar {        
  print "$foo\n";
}                
}                
# Execute once
foo1234();
# Execute twice
foo1234();

OUTPUT:
foo
bar
bar
bar