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