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