#! /usr/bin/perl
# vim:ts=4 sw=4 sts=4 et nu fdc=3:
use strict;
use warnings;

BEGIN {
    if ( $^O ne "linux" ) {
        require Win32API::Registry;
        require Win32::TieRegistry;
    }
}



sub foo {
    # keine Ahnung, geraten; eh nur Beispiel
    Win32API::Registry->whatever();
}


sub bar {
    Win32API::Registry->whatever()  if $^O ne 'linux';
}


sub fuu {
    # angenommen, dies waere von einem geladenen Modul exportiert worden... 
    # (nicht mit alleinigem require())
    however();
}


sub baz {
    however()   if $^O ne 'linux';
}

#foo();
bar();

#fuu();
baz();