use strict;
use warnings;
$/ = undef;
print "Say something: "
my $Input = <STDIN>;
print "You typed $Input\n';