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

dosomething();

my $stuff = "ABCD";

# bottom sub
sub dosomething {
    print "$stuff\n";
}


##</code><code>##

#!/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();

##</code><code>##

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

dosomething("ABCD");

#top subs
sub dosomething {
    my $arg = shift;
    print "$arg\n";
}

dosomething "EFGH";