Select Code to Download

#!/usr/bin/perl
use 5.010;
...
my $filename = '';
say $filename, ' - basename($filename) -> ', basename($filename);
say $filename, ' - dirname($filename) -> ', dirname($filename);