my $install_dir = File::Spec->catdir('C:', 'Program Files (x86)');
my $glaskugel = Glaskugel->new();
if( $glaskugel->is_writable( $install_dir ) ) {
    print "Toll! Du kannst schreiben!\n";
}else{
    print "Du kommst hier nicht rein.\n";
}