sub extension {
    my $path = shift;
    my $ext = (split /\./, $path)[-1];
    return $ext;
}

##</code><code>##

sub extension {
    (split/\./,$_[0])[-1];
}