use File::Basename qw( basename dirname );

my $path = "/path/to/file.txt";

print "DIR:  ", dirname($path), "\n";
print "FILE: ", basename($path), "\n";