#!/bin/perl

use CGI;
$query = new CGI;
@keywords = $query->keywords;
$timeframe = &trim(uc(@keywords[0]));
$sp_action = &trim(uc(@keywords[1]));

use LWP::Simple;
$rundir = '/opt/oracle/CSMDB/LoadFiles';
$exe_dir = $rundir . "/Monthly/current_load";
$actual_cmd = "files_present.pl";
system($exe_dir . "/" .$actual_cmd . " " . $exe_dir . " " . $sp_action );

Second *.pl script called by script above:

#!/bin/perl

use CGI;
$query = new CGI;
@keywords = $query->keywords;
$exe_dir = @keywords[0];
$time_frame = @keywords[1];