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