#! /usr/bin/perl use CGI':standard'; print "content-type:text/html","\n\n"; $input=param(name); print "

hi,$input

"; my @msgs=("good","welcome","fine","hello"); print "

the message received is:"; print $msgs[int rand scalar @msgs]; print "

";