$ perl -MFile::Spec -e 'print File::Spec->catdir(".","t")'
t

$ perl -MFile::Spec -e 'print File::Spec->catdir("","t")'
/t