#!/usr/bin/perl
use strict 'vars';

my $x = 'a';
printme();
my $x = 'b';
printme ();

sub printme( ) {
  print "x: $x\n";
}

##</code><code>##

x: 
x: b