Select Code to Download

#! /usr/bin/perl -w
use strict;
...
print "\nQuote Number " . $quote->{"ID"}     . ":\n"
    . wrap('', '',        $quote->{"Quote"}) . "\n"
    . " - "             . $quote->{"Author"} . "\n\n";

Quote Number 308:
...
123456789_123456789_123456789_
 - Someone