#!/usr/bin/perl
use warnings;
use strict;

my @lines;
{
	$SIG{INT} = 'IGNORE';
	@lines = <STDIN>;
}
print "You entered: " . join("", @lines)