use File::Basename qw(basename dirname);

my $path = '/usr/local/bin/perl';

my $file = basename $path;  # $file eq 'perl'
my $dir = dirname $path;    # $dir eq '/usr/local/bin'