use dies;
use das;
use jenes;

print 'Irgendwas';
print 'Was anderes';

if ($string eq 'Perl') {
    print 'Hallo';

    if ($plattform eq 'Win32') {
        print 'Meine Heimat';
    } else {
        print 'Das Unbekannte';
    }
} else {
    print 'Heute mal nicht. Bye';
}