#!/usr/bin/perl use strict; use warnings; use CGI qw(:cgi-lib); use CGI::Carp qw(fatalsToBrowser); #get input &ReadParse(*input); #assign variables my $loginame= $input{'username'}; my $p_word=$input{'password'}; print "Content-type: text/html\n\n"; print ""; print "***$loginame AND $p_word***"; exit;