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] );