package main;
our($a,$b);

package RealPackage;
# ...

##</code><code>##

sub directories_first ($$) {
   my ($a,$b) = @_;
   # ...
}