use strict; 
use warnings; 
use CGI; 
require "custom_signon1.pm";  
require "custom_signon2.pm"; 
 
my $cgi = new CGI; 
 
my $user = params->{'UserName'}; 
my $password = params->{'PassWord'}; 
my $date_time = params->{'date_time'}; 
 
if(x) {  
 #use sub from custom_signon1.pm 
 SIGN_ON1($user,$password,$date_time); 
}  
elsif(y) {  
 #use sub from custom_signon2.pm 
 SIGN_ON2($user,$password,$date_time); 
}