#!usr/bin/perluse warnings;use strict;print "Input something and we'll print it: ";my $string = ;chomp( $string ); # Last character removed only if a newlineprint "\nThis is safer. Still '$string.'\n";