package SomePackage;

my $var = 1;

sub some_sub {
  ...
}

package main;

print "Main stuff here."
&SomePack::some_sub;