use Config;
my $pathsep = $Config{path_sep};
print "pathsep $pathsep\n";