sub is_readable {
    use Win32API::File ();
    my $oldMode  = Win32API::File::SetErrorMode(2);
    my $readable = -r $_[0];
    Win32API::File::SetErrorMode( $oldMode );
    return $readable;
}