How can I separate a full path into directory and filename?

source : http://stackoverflow.com/questions/3512526/how-can-i-separate-a-full-path-into-directory-and-filename
useFile::Basename;
$fullspec ="/etc/init/tree/errrocodr/a.txt";my($file, $dir, $ext)= fileparse($fullspec);print"Directory: ". $dir ."\n";print"File:      ". $file ."\n";print"Suffix:    ". $ext ."\n\n";my($file, $dir, $ext)= fileparse($fullspec, qr/\.[^.]*/);print"Directory: ". $dir ."\n";print"File:      ". $file ."\n";print"Suffix:    ". $ext ."\n";