#!/usr/bin/perl -w
use strict;
use warnings;

my $errorbindings;
BEGIN {
        eval "use Win32::File qw/ ARCHIVE /";
        if ($@) {
                $errorbindings = $@;
        }
}
if (!$errorbindings) {
        Win32::File::GetAttributes('$0', my $attributes);
        if ( $attributes | ARCHIVE() ) {
                print "Attribut fuer $0 ist gesetzt\n";
        }
}
else { print "Schrott: >$errorbindings<\n" }