$separator = '/';
$separator = '\\' if ($^O =~ /Win/);