use strict;
use warnings;
use English;

sub GetPathnameSeparator {
    $_ = $OSNAME;
    my $seperator = 
          # OS      # Seperator
          /MACOS/i ? ':'
        : /WIN/i   ? '\\'
        :            '/'
        ;
    return $seperator;
}