use Data::Dumper;
$Data::Dumper::Useqq=1;
$Data::Dumper::Terse=1;

use File::Spec::Functions qw/catdir catpath/;

print Dumper( catdir('','photorepos','Perl','Mother','WorkLoad') );
# the following volume spec is ignored in *NIX
print Dumper( catpath('C:',
	catdir('','photorepos','Perl','Mother','WorkLoad')) );

use Path::Class qw/file dir/;

print Dumper( dir('C:\\')->subdir('photorepos')->subdir('Perl')
	->subdir('Mother')->subdir('WorkLoad').'' );

my $dir = dir('C:\\','photorepos','Perl','Mother','WorkLoad');
print "Path: ", Dumper( "$dir" );
print $dir->is_absolute ? "Is Absolute\n" : "Is Relative\n";
print "Volume: ", $dir->volume, "\n";
print "Dir List: ",Dumper( [$dir->dir_list] );

##</code><code>##

# Windows
"\\photorepos\\Perl\\Mother\\WorkLoad"
"C:\\photorepos\\Perl\\Mother\\WorkLoad"
"C:\\photorepos\\Perl\\Mother\\WorkLoad"
Path: "C:\\photorepos\\Perl\\Mother\\WorkLoad"
Is Absolute
Volume: C:
Dir List: ["", "photorepos", "Perl", "Mother", "WorkLoad"]

# Linux
"/photorepos/Perl/Mother/WorkLoad"
"/photorepos/Perl/Mother/WorkLoad"
"C:\\/photorepos/Perl/Mother/WorkLoad"
Path: "C:\\/photorepos/Perl/Mother/WorkLoad"
Is Relative
Volume: 
Dir List: ["C:\\", "photorepos", "Perl", "Mother", "WorkLoad"]