use CGI;
print 'Your input: ';
my $var = <STDIN>;
chomp $var;
print "\$var is '$var'";
# Output:
'var is 'foo