use vars ( '$SOME_GLOBAL' );

$SOME_GLOBAL = 42;

our $ANOTHER_GLOBAL = 'fnord';

sub a_function {
    # A variable declared just for the inside of a_function.
    my $some_param = shift;

    print "$some_param\n";
}