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

use strict;
require Exporter;
use vars qw(@EXPORT @EXPORT_OK @ISA);

@ISA = qw(Exporter);
@EXPORT = qw(func2);
@EXPORT_OK = qw(func1);

sub func1 { return "func1"; }

sub func2 { return "func2"; }

1;