my @tmp = split(/\//, '/home/bin/scripts/test.pl');
my $fname = pop @tmp;
####
my $fname = pop split(/\//, '/home/bin/scripts/test.pl');
####
*-*-*-*-*-*
{ firstname => 'Michael',
quote => 'Mice were crying and stinging but went on nibbling the cactus', }