# Warnings, strict and our aren't needed if you don't 
# want to bother. I Just like to have them
use strict;
use warnings;
our $c = 5;
sub foo {
    print $c;
}

# Next line is the only thing that's different from
# what you'd have if you were going to use "do"
# A filed being required/used should return something true
1;