#!/usr/bin/perl

use CGI qw/:standard/;           

$q=new CGI;
print $q->header;
print "Enter something: ";
my $response = <STDIN>;
print "You just entered: $response";