Select Code to Download

sub listing_out  # override this for your desired output format
 {
...
    }
 print {$output} "\t$text\n";
 }