my $fullpath = 'C:\foo\bar\baz';

##</code><code>##

print $dirname;