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

dosomething("ABCD");

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

dosomething "EFGH";