I don't know if there's a pure perl solution, but you can install the program chase and parse its output in perl. Getting the extension should be a simple matter of regexes or split.