#!/usr/bin/perl -Tw # a stupid simple script that prints a form && echoes any input use CGI; use Modern::Perl 2011; my $head ='
'; my $form =' '; my $foot ='
'; print "content-type:text/html; charset=utf-8\n\n"; print $head; print $form; my $query = CGI->new; $input = $query->param('input'); if (!$input) { print "
No input"; }else{ print "
$input"; } print $foot; #### Global symbol "$input" requires explicit package name at Global symbol "$input" requires explicit package name at Global symbol "$input" requires explicit package name at