Help for this page

Select Code to Download


  1. or download this
    my ( undef, undef, $name ) = File::Spec->splitpath($path);
print "$name\n";
  2. or download this
    my $name = ( File::Spec->splitpath($path) )[2];
  3. or download this
    sub family_member {

...
# ...or assign it:

my $father = family_member({ father => 'Larry' });