my %separators = (
    linux => '/',
    MSWin32 => '\\',
    darwin => '/',
);

##</code><code>##

die "This script doesn't yet run on $^O\n"
    unless $separators{$^O};