C:\test>perl -wE"$SIG{BREAK}=sub{ say 'BREAKing' }; &{$SIG{BREAK}}; say 'ending'; "
BREAKing
ending