use SIG::AutoRotate; my $sig = SIG->new(); $sig->Generate();