{
    local HANDLE;
    opendir HANDLE, $dir or die "Couldn't open $dir : $!\n";
    ...
}
# left scope, HANDLE is what it was before