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