use strict; use DBI; use CGI::Session; use CGI qw(:standard); my $query = new CGI; print < Members HEADER my $sid = $query->cookie("CGISESSID") || undef; my $session = new CGI::Session(undef, $sid, {Directory => 'Temp/'}); my $trans_type = 'xxx'; my $transaction_id = 'xxx'; my $mem_number = 'xxx'; my $apt = 'xxx'; my $month = 'xxx'; my $year = 'xxx'; my $amount = 'xxx'; my $naijaXMLRequest = <"; $trans_type"; NAIJAMAN009"; $transaction_id"; $mem_number"; $apt"; $month"; $year"; $amount"; "; XML my $mem = new LastBill; my $gateway = 'xxx'; $mem->sendHTTP($gateway, "$naijaXMLRequest"); $session->delete(); print qq[];