{
    open local(*STDERR), '>>', $errlog 
        or die q(Can't redirect error: ),$!;
    print STDERR "Permission/Error Log\n", scalar( localtime), "\n\n";
    # ...
    close STDERR or die $!;
}