use strict;
use warnings;

print "Just hit enter (before CGI)";
my $var = <STDIN>;
print ":", ord $_, ":" for (split //, $var);
print "\nChomping\n";
chomp $var;
print ":", ord $_, ":" for (split //, $var);
print "\n";

eval 'use CGI;';
print "Just hit enter (after CGI)";
$var = <STDIN>;
print ":", ord $_, ":" for (split //, $var);
print "\nChomping\n";
chomp $var;
print ":", ord $_, ":" for (split //, $var);

__END__
output:
Just hit enter (before CGI)
:10:
Chomping

Just hit enter (after CGI)
:13::10:
Chomping
:13: