package Functions;

use base 'Exporter';

our @EXPORT_OK = qw( func1 );

sub func1 { ... }

package Foo;

use Functions qw( func1 );

sub new { bless {}, shift }

# This is a method
sub meth1 {
    my $self = shift;
    ...
}

package Bar;

use base 'Foo';

package main;

my $bar = Bar->new;

$bar->func1();