String Perl

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