use File::Spec;

my ($volume, $directories, $file) = File::Spec->splitpath( $path );
my ($extension) = $file =~ /\.([^\.]+)$/;
[download]