Just point the INT signal handler at some code e.g

$SIG{INT} = sub { warn @_ };
[download]

See. the %SIG entry in perlvar for more information on setting up signal handlers.
HTH

_________
broquaint