package MyLogger; use strict; use warnings; sub new { if( $^O =~ /win32/i ){ require MyLogger::Win32; return MyLogger::Win32->new; } else{ require MyLogger::Default; return MyLogger::Default->new; } } 1;