Mine

#!/usr/bin/perl

# nsupevents.pl - Lists upcoming events from nashvillestandup.com
# Written by Corey Reppond <reppocs at gmail dot com>

open HTML, "wget -q -O - http://www.nashvillestandup.com/ |";

while (<HTML>) {

    print;

}

close HTML;