use File::Spec;
+use File::Spec::Functions qw( canonpath splitpath );