Select Code to Download

sub recode {
    my ($enc, $data) = @_;
...
        return $data;
    }
}

#!/usr/bin/perl -w

...

    return $tmp;
}