my $trap = sub { unlink $source;
symlink $target, $source;
print "Caught a SIG$_[0]!\n";
exit; };
local ($SIG{HUP}, $SIG{INT}, $SIG{TERM}, $SIG{QUIT}, $SIG{__DIE__}) =
($trap, $trap, $trap, $trap, $trap);
my $trap = sub { unlink $source;
symlink $target, $source;
print "Caught a SIG$_[0]!\n";
exit; };
local ($SIG{HUP}, $SIG{INT}, $SIG{TERM}, $SIG{QUIT}, $SIG{__DIE__}) =
($trap, $trap, $trap, $trap, $trap);