#!/usr/bin/perl

#
# Bad code - will not work 
#

use strict;
use warnings;

if ($^O eq 'MSWin32') {
        use autouse 'MyMod_W32' => qw( bar );
} else {
        use autouse 'MyMod' => qw( bar );
}

bar();