### begin_: tryStuffBeta.pm package tryStuffBeta; use strict; use warnings; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION); use vars qw( $PermaLink $OppositePermaLink ); $VERSION = 1.00; # Or higher @ISA = qw(Exporter); use tryStuffAlpha; ### begin_: init vars $PermaLink = "PERMALINK-BETA\n"; $OppositePermaLink = "BOppositeLink=" .$tryStuffAlpha::Permalink."\n"; ### begin_: subroutines push @EXPORT_OK, qw( SayHello ); sub SayHello { my $strOut; $strOut = "Beta Says Hello World! \n"; return $strOut; }###end_sub push @EXPORT_OK, qw( SayOpposite ); sub SayOpposite { my $strOut; $strOut = "Say Opposite Beta =".tryStuffAlpha::SayHello(); return $strOut; }###end_sub ### begin_: end perl 1; __END__