#!/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" }