#!/usr/bin/perl use strict; use CGI; use CGI::Carp; #create CGI query object to get the SSO from URL my $query = CGI->new; my $sso = $query->param("sso"); $sso = shift; print "Content-type:text/html\r\n\r\n"; print ""; print ""; print "Application Management Sysyem"; print ""; if($sso eq "") { print "

\n\nERROR: SSO is EMPTY!

\n\n"; } else { use Proc::Background; print ""; print "

You have entered $sso

"; print ""; print ""; }