$ perl -MGuard -le "  $SIG{INT}=sub{warn 2}; {scope_guard { warn 1 }; sleep 3 } "
1 at -e line 1.

$ perl -MGuard -le "  $SIG{INT}=sub{warn 2}; {scope_guard { warn 1 }; sleep 3 } "
2 at -e line 1.
1 at -e line 1.

$ perl -MGuard -le "  $SIG{INT}=sub{warn 2}; {scope_guard { warn 1 }; sleep 3 } "
2 at -e line 1.
2 at -e line 1.
2 at -e line 1.
2 at -e line 1.
2 at -e line 1.
2 at -e line 1.
2 at -e line 1.
2 at -e line 1.
1 at -e line 1.


$ perl -MGuard -le "  $SIG{INT}=sub{warn 2;exit }; {scope_guard { warn 1 }; sleep 3 } "
2 at -e line 1.
1 at -e line 1.