Help for this page
my %separators = ( linux => '/', MSWin32 => '\\', darwin => '/', );
die "This script doesn't yet run on $^O\n" unless $separators{$^O};