#common routines to share among all modules
package Common;

use strict;
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
*import= \&Exporter::import;
@EXPORT = ();
@EXPORT_OK = qw(get_today get_setup);
%EXPORT_TAGS = ( All => [qw(&get_today &get_setup)]);

sub get_today {
   #get date
}
sub get_setup {
   #get application parameters
}
1;

#example of a calling module
package SomeFile1;
use strict;
use Common qw(:All);

#...CGI::Application setup, etc...

sub initialize {
   my $self = shift;
   
   my $day = $self->get_today();
   my $setup = $self->get_setup();
}
1;