basename OR dirname perl code example

Example: basename OR dirname perl

use File::Basename;

$basename = basename($fullname);
$dirname  = dirname($fullname);