my $availability = LWP::Simple::get("https://$ENV{'HTTP_HOST'}/cgi-bin/booking.pl?command=check&st=$data{'st'}&ed=$data{'ed'}&force=$data{'force'}");

print "->$availability<-\n";

if (!defined @avail) {
	foreach (split /\n/, $availability) {
		chomp;
		my ($k, $v) = split/,/;
		$avail[$k] = $v;
	}
}