#!perl -w
use strict;

print "Enter CTRL-C to end input\n";
$SIG{INT} = 'IGNORE';
my @rv = <STDIN>; 
eval q/$SIG{INT} = 'DEFAULT'/;
chomp @rv;
print "Enter CTRL-C to exit\n";
while ( 1 )
{
   local($") = ', ';
   print "You entered: @rv\n";
   sleep(1);
}