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