package Bam::Kapow; use strict; use Carp; use File::Basename; use File::Spec::Functions; our $VERSION = "0.01"; our %Info = (); # load the data file for my $data (qw( motd issue ) ) { my $file = catfile( dirname( $INC{'Bam/Kapow.pm'} ), 'Kapow', $data ); open my $fh, $file or carp "Can't open $file: $!"; $Info{$data} = join '', <$fh>; close $fh; } 1;