Help for this page

Select Code to Download


  1. or download this
    if ($protected) {
    local $SIG{INT} = 'IGNORE';
    precious();     # no interrupts during this function
}                   # previous handler (if any) restored
  2. or download this
    my @foo = (0..9);
print "[1] ", join('|', @foo), "\n";
local $foo[3] = 100;
print "[2] ", join('|', @foo), "\n";