#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

my $path_to_file = "/home/inovick/site/code/perl/one/literal_underscores.pl";

my($filename, $path) = fileparse($path_to_file);

print "filename:    $filename\n";

print "path:        $path\n";