function fileExtension($file) {
        $pos = strrpos($file,".");
        if ($pos == "0") return false;
        else {
                $ext = strtolower(substr($file,$pos));
                return $ext;
        }
}

##</code><code>##

sub fileExtension {
        my $file = shift;
        my $pos = index($file,".");
        if ($pos == "0") {
            return undef;
        } else {
                my $ext = lc(substr($file,$pos));
                return $ext;
        }
}

##</code><code>##

sub extension {
    my $path = shift;
    my $ext = (fileparse($path,'\.[^.]*'))[2];
    $ext =~ s/^\.//;
    return $ext;
}