use File::Basename qw( dirname );

my $dir_name = dirname($full_name);