That'd be great for an obfuscated Perl contest, but I'd simply write that as:

use File::Basename;
(my $script = basename $0) =~ s/(\.pl)?$/.cfg/;
[download]

-- Randal L. Schwartz, Perl hacker