#!/usr/bin/perl

use strict;
use warnings;

=begin pod

=head1 A few good subs

This is a line of Pod. This module contains
some functions and  might be used as follows:

    do_something(); # Magic happens here!

=end pod


# ------------------
# Subroutines
# ------------------

=begin pod

=head2 do_something

You'd use this I<awesome> function for:

=item  
When you want to do foo.

=item  
When you want to do bar, since foo obviously
isn't cutting it.

=end pod

sub do_something {
    print "Magic goes here.\n";
}

print "hi.\n";
do_something;
print "bye!\n";