use Path::Class qw( file dir );

my $base = dir('c:\\abc\\def');
my $node = file('c:\\abc\\def\\ghi\\jkl');  # or dir()

print $node->relative($base), "\n";