if (substr (`attrib $pfad_datei`,0,1) eq 'A') {
 print "Datei hat das Archiv-Attribut\n";
}