use File::Basename;
$dirname= dirname($filepath);