Assuming they supply an accurate name:

$filename = "/foo/bar/myfile.txt";

($ext) = $filename =~ m/\.(\w+)$/;

print $ext;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print