File::Basename in perl Example

use File::Basename;

($name,$path,$suffix) = fileparse($fullname,@

suffixlist);

$name = fileparse($fullname,@suffixlist);
$basename = basename($fullname,@suffixlist);
$dirname  = dirname($fullname);