The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package MyModule;

use strict;
use warnings;

use vars qw($var);

$var = "Bar";

sub function
{
    print "In MyModule.\n";
}

1;