#!/usr/bin/perl 

print "Content-type: text/plain\n\n";
use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;

# $| = 1;
print "What is your name? ";
my $name= <STDIN>;
chomp $name;
print $name,"\n";