#!/usr/bin/perl -w
use IO::Socket;


my $sock;
while(not($sock  = new IO::Socket::INET("nashvillestandup.com:80"))){
}
print $sock "GET / HTTP/1.1\nHost: nashvillestandup.com\n\n";
my $stuff=0;
while(<$sock>){
        if (/SCHEDULE begin/){
                $stuff=1;
        }
        elsif(/SCHEDULE end/){
                close $sock;

        }
        elsif($stuff==1){
                $html.=$_;
        }
}
print $html;