#!

use Carp;
use strict;
use warnings;

$SIG{INT}=\&CtrlC;

sub CtrlC {
    $SIG{INT}=\&CtrlC;
    Carp::carp('Caught a CTRL/C');
     };

sub mySub {
    for (1..10) {
        <STDIN>;
         };
     };

    for (1..10) {
        <STDIN>;
         };
    mySub();
    exit;