Mega Code Archive

 

Categories / Perl / CGI

 

Printing the Name Input Using the CGI Module

#!/usr/bin/perl -T use strict; use CGI qw/:standard/; print header,       start_html('Hello'),       start_form,       "Enter your name: ",textfield('name'),       submit,       end_form,       hr; if (param()) {   print "Hello ",         param('name'),         p; } print end_html; exit;