perl -w

use strict;
use warnings;
use 5.014;
use File::Basename;

my $basename=basename($fullpath);
my $dirname=dirname($fullpath);

print "$basename";
print  "\n\n";
print "$dirname";