coldfingertips, my friend, you must accept File::Basename into your life:

use File::Basename;

#...

(fileparse($url, @quicktime_ext))[2] or electrocute_user();
[download]

You don't even have to download it from CPAN; it's part of the standard Perl distribution.