How can I trap Cntl-C while using Perl's Term::ShellUI?

I used Term::ShellUI and almost every thing is working as expected but the issue is when I pressed Ctrl-C I want to print:

Please use 开发者_开发知识库ctrl+d to exit the shell

For that I handle the signal but the message print only after I pressed the new line How to resolve this?

You can do the same without using the IO::Handle library, by setting the $| variable to 1 before printing.

$SIG{INT} = sub {
   $| = 1;
   print "Please use ctrl+d to exit the shell";
}