#!/usr/bin/perl -w # # =========== # realname.pl # =========== use strict; use warnings; # always use these print "content-type:text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "What is your name: "; my $input = ; chomp $input; print "Hello, $input"; print "\n"; print "\n";