use File::Spec;
$subdir = File::Spec->rel2abs($subdir, $BASEBIR);