use File::Basename        qw( fileparse );
use File::Spec::Functions qw( rel2abs );

my ($file_name, $dir_path) = fileparse(rel2abs($file_path));