my $availability;
my $response = LWP::Simple::getstore("http://$ENV{'HTTP_HOST'}/cgi-bin/booking.pl?command=check&st=$data{'st'}&ed=$data{'ed'}&force=$data{'force'}", $availability);
print qq[("http://$ENV{'HTTP_HOST'}/cgi-bin/booking.pl?command=check&st=$data{'st'}&ed=$data{'ed'}&force=$data{'force'}")\n];
print "->$availability<-\n";
print "$response\n";