Only mildly obfuscated, but...

#! /usr/bin/perl
use strict;
use warnings;
$a = 'eintsrahgldmfopv';
($b = join '', ('a'..'z')) =~ s/[$a]//g;
eval "(\$b = \$a) =~ y/a-z/$a$b/";
@_ = split //, qq($a, $b);
print @_[22,33,18,28,17,6,2,13,3,7,24,30,17,31,0,5,9,17,25,26,23,21,24
+,5,16];
[download]