package SecurityUnix; use strict; use warnings; use constant { TRUE => 1, FALSE => 0 }; printf "Loading %s\n", __PACKAGE__; use Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK ); our $VERSION = 1.00; our @ISA = qw(Exporter); @EXPORT = qw(Test); @EXPORT_OK = qw(); sub Test { printf "Loading %s\n", __PACKAGE__; } 1;