my $lot =<<'EOF';