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

dosomething();

my $stuff = "ABCD";

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