#!/usr/bin/perl

use strict;
use warnings;
use CGI;
        
my $cgi   = CGI->new;
my $query = $cgi->param("text");

print $cgi->header;

print "my value is: $query\n" if $query;

print qq(<form><input name="text" value="hey"></form>);
[download]