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;