ファイル名から、ディレクトリ名とベース名を取り出す

#!/usr/bin/evn perl
use strict;
use warnings;
use Path::Class;
use Perl6::Say;

my $file = file( 'foo', 'bar', 'tmp.txt' );
say $file->basename;
say $file->dir;

__END__

See also:
http://d.hatena.ne.jp/perlcodesample/20080517/1211118829