#!/usr/bin/perl

use strict;
use warnings;
use Config '%Config';


sub GetPathnameSeparator { 

=head2 GetPathnameSeparator

Return the character used to separate elements 
in the command shell search PATH.

=cut

  return $Config{path_sep}
}