wie prüfe ich in Perl ob der aktuelle user die Berechtigung besitzt eine Datei zu lesen?