Select Code to Download

my $num_ctrlc = 0;
$SIG{'INT'} = sub {
...
};

# rest of program

while ($a = <STDIN>) {
    print $a;
}