#!/bin/perl
# Prints a typed in number to show newline problem
print "Gimme a number: ";
$num = <STDIN>;
chop $num;
print "The number typed was ",$num," was it not?\n";