Help for this page

Select Code to Download

Select or download this

open(S1, "/dev/null");
$a=*S1{IO};
{
...
    $b=*S1{IO};
}
print "$a $b\n";