my $binary = file_name_is_absolute($^X)
    ? $^X
    : (
        grep -x,
        map catfile($_,$^X),
        split /\Q$Config::Config{path_sep}/, $ENV{PATH}
    )[0];
[download]

Makeshifts last the longest.