BEGIN {
  my $memory = 'a';

  sub test {
    print "Value of static var is ", $memory++, "\n";
  }
}