my %data = $q->Vars; ##

##

use CGI ':standard';
my $q = new CGI;
$q->import_names('Input'); # Replace 'Input' with any name

print <<"DONE";
Content-type: text/html\n

  Your Name: $Input::name

  Your Text: $Input::text

DONE