$ perl -le " print -e qq'C:/\0blah'
1

$ perl -MPath::Class -le " print file(qq'C:/\0blah')->resolve "
C:\