my @tmp = split(/\//, '/home/bin/scripts/test.pl');
     my $fname = pop @tmp;