Any idea why this happens?

Because you don't have permission -- ask the computer why

stat, file, ls

or die Fudge( "q{$file}:" );
sub Fudge {
    use Errno();
    join qq/\n/,
      "Error @_",
      map { "  $_" } int( $! ) . q/ / . $!,
      int( $^E ) . q/ / . $^E,
      grep( { $!{$_} } keys %! ),
      q/ /;
}
[download]