#!/usr/bin/perl -w use strict; use CGI qw/:standard/; my $input = param("input")||""; print "content-type:text/html; charset=utf-8\n\n"; print qq(
); if ($input) { print qq(
Hello, $input
); }else{ print qq(

); } print qq(
);