#!/usr/bin/perl
use strict;
use CGI;
use IPC::System::Simple qw(system capture);
#create CGI query object to get the SSO from URL
my $sso = new CGI;
my $sso = $query->param( "sso" );
#*********Script within a script both files in same path**********
system( "perl myscript.pl $sso" );
print "Content-type:text/html\r\n\r\n";
print "";
print "";
print "Some Header";
print "";
print "";
print "You have entered $sso
";
print "";
print "";