use File::Basename;

my $string = "/opt/pmg/ptt/book1_test";
my $dirname  = dirname($string);