#!/usr/bin/perl -w
use strict;
use warnings;

my $errorbindings;
BEGIN {
        eval "use Win32::File qw/ :DEFAULT /";
        if ($@) {
                $errorbindings = $@;
        }
}
if (!$errorbindings) {
        if (Win32::File::GetAttributes("$0", my $attributes)) {
                if ( $attributes & SYSTEM ) {
                        print "Attribut S fuer $0 ist gesetzt\n";
                }
        }
}
else { print "Schrott: >$errorbindings<\n" }