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

##</code><code>##

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

##</code><code>##

*-*-*-*-*-*
{ firstname => 'Michael',
  quote     => 'Mice were crying and stinging but went on nibbling the cactus', }