#!/usr/bin/perl -w
use strict;
use warnings;
my $errorbindings;
BEGIN {
        eval "use Win32::File qw/ ARCHIVE /";
        if ($@) {
                $errorbindings = $@;
        }
}
if (!$errorbindings) {
#       my $test = Win32::File::GetAttributes ("eval.pl",ARCHIVE());
        Win32::File::GetAttributes('eval.pl', my $attributes);
        if ( $attributes | ARCHIVE() ) {
                print "Attribut ist gesetzt\n";
        }
}
else { print "Schrott: >$errorbindings<\n" }