package QuestQRM;

use strict;
use Exporter;
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);

@ISA = qw(Exporter);
@EXPORT_OK = qw(repScreenOne);
%EXPORT_TAGS = ( ':repReq'=>[qw!repScreenOne!] )

sub repScreenOne {
		my ($m,$d,$y) = @_;
....
}

1;

##</code><code>##

use strict;

my $this = "1";
my $that = "2";

sub try {
        my ($one,$two) = @_;
        print "$one $two\n\n";
}

try($this,$that);

##</code><code>##

Can't use global @_ in "my" at QuestQRM.pm line 12.
BEGIN failed--compilation aborted at /home/httpd/cgi-bin/rep_req.pl line 24.