Help for this page

Select Code to Download


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