use Path::Class qw( file );

my $file = file($qfn);
my $basename = $file->basename();
my $dirname  = $file->parent();

say $dirname;
say $basename;