package mymodule; require Exporter; use strict; use warnings; our @ISA = qw (Exporter); our @EXPORT = qw(); our @EXPORT_OK qw(Func1); our $VERSION = 0.01; sub new { my $class = shift; my $self = {}; bless ($self, $class); return $self; } sub Func1 { print "Hi there\n"; } sub Func2 { my ($class, $name, $value) = @_; print "hi $name, value $value\n"; }