#!/usr/bin/perl --
use strict;
use warnings;
use Path::Class;

## exists
#~ my $file = q[C:\Program Files\Mozilla Firefox\chrome\icons\default\
+chatzilla-window.ico];
my $file = q[C:\Program Files\Mozilla Firefox\chrome2\icons2\default2\
+chatzilla-window2.ico];
$file = file($file);
while( not -r $file ){
    printf "($file):\n(%d)(%s)\n(%d)(%s)\n\n", $!,$!,$^E,$^E;
    $file = $file->parent;
}
print "$file\n\n";
__END__
(C:\Program Files\Mozilla Firefox\chrome2\icons2\default2\chatzilla-wi
+ndow2.ico):
(2)(No such file or directory)
(3)(The system cannot find the path specified)

(C:\Program Files\Mozilla Firefox\chrome2\icons2\default2):
(2)(No such file or directory)
(3)(The system cannot find the path specified)

(C:\Program Files\Mozilla Firefox\chrome2\icons2):
(2)(No such file or directory)
(3)(The system cannot find the path specified)

(C:\Program Files\Mozilla Firefox\chrome2):
(2)(No such file or directory)
(2)(The system cannot find the file specified)

C:\Program Files\Mozilla Firefox
[download]