Another way is to use FindBin instead of $0, e.g

use FindBin;
use File::Spec;
my $path = File::Spec->catdir($FindBin::Bin, "..");
[download]

or the like.