use File::Basename;
my ($name,$path) = fileparse($fullname);