#!/usr/bin/perl
# file.pm

use strict;
our ($baz, $quux);

sub blorf;
$quux = sub { 3 };

sub foo { 1 }
sub bar { 2 }