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