#!/usr/bin/perl -w
use strict;

my $stuff = "ABCD"; # visible to all subs from now on

#top subs

{ # start closure
my $privatestuff = "WOW!"; #visible only from dosomething
sub dosomething {
    print "$stuff \t $privatestuff\n";
}
} # end closure

sub dosomethingelse {
    $stuff = "WXYZ";
}

dosomething();