Select Code to Download

if (!defined @avail) {
    foreach (split /\n/, &get("https://$ENV{'HTTP_HOST'}/cgi-bin/booki
+ng.pl?command=check&st=$data{'st'}&ed=$data{'ed'}&force=$data{'force'
+}", $availability);) {
...
        $avail[$k] = $v;
    }
}

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

...
        $avail[$k] = $v;
    }
}

my $availability;
my $response = LWP::Simple::getstore("https://$ENV{'HTTP_HOST'}/cgi-bi
+n/booking.pl?command=check&st=$data{'st'}&ed=$data{'ed'}&force=$data{
+'force'}", $availability);
print qq[("https://$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";

fetch('/api/', {
        method: 'POST',
...
    .catch(error => {
        console.log(error.message);
});