Select Code to Download

sub _getGood {
    my ($self,@args) = @_;
...

my @files_to_send = map {"$stage/$_.pdf"} $self->_getGood();
print map {"$_\n"} @files_to_send;