#!/usr/bin/perl

$SIG{'INT'} = 's';

while (1) {A:}

sub s {
print "トラップしました";
goto A:
}

実行したスクリプトに対してC-cを発行して、そのSIGTERMを
受けても終了しないようなものを作りたいのですが
上記のスクリプトは実行してC-cを押すと
Can't find label A
となってしまいます
どこがまずいのでしょうか?

あとgotoはできるだけ使うなとの情報があったのですが
gotoを使わずにINTから抜ける方法ってないでしょうか?

sub s {
print "トラップしました";
}

だけにすると何も受け付けなくなります