No, this isn't the shortest Perl code, because you didn't follow one main prerequisite:

`rm`$^X
[download]