use Test::More; BEGIN { if ($^O =~ /^(?:MSWin|VMS|dos|MacOS|os2|epoc|cygwin)/i) { plan skip_all => "OS unsupported. It may or may not work, but you won't know since the tests are being skipped. Use at your own risk"; } else { plan tests => 1; } use_ok('Term::Menu::Hierarchical'); } #### if ($^O =~ /^(?:MSWin|VMS|dos|MacOS|os2|epoc|cygwin)) { die "OS unsupported\n"; }