Select Code to Download

#!/usr/bin/perl -w
use strict;
...
# print out the RSS
print header('application/xml+rss'), $rss->as_string;

#!/usr/loca/bin/perl
# googly.pl
...
    $result->{snippet} || 'no snippet',
    "\n";
}