#!/usr/bin/perl
use 5.010;
use strict;
use warnings;

use File::Basename;
say "$File::Basename::VERSION\n";

my $filename = '';
say $filename, ' - basename($filename) -> ', basename($filename);
say $filename, ' - dirname($filename) -> ', dirname($filename);