use File::Spec::Functions qw( splitpath catpath rel2abs canonpath );

my ($v, $p, $file_name) = splitpath(rel2abs($file_path));
my $dir_path = canonpath(catpath($v, $p));