Select Code to Download

use Data::Dumper;

...
    }
    return @result;
}

sub print_results {
    if (@_ == 0) {
...
    }
    print "!\n";
}