chomp($str = `dirname $str`);

##</code><code>##

use File::Basename;

my $dir = dirname($filename);