Select Code to Download

function fileExtension($file) {
        $pos = strrpos($file,".");
...
                return $ext;
        }
}

sub fileExtension {
        my $file = shift;
...
                return $ext;
        }
}

sub extension {
    my $path = shift;
...
    $ext =~ s/^\.//;
    return $ext;
}