--- mk-kml.perl	2025/03/29 01:58:56	3.3
+++ mk-kml.perl	2025/05/18 05:02:15	3.4
@@ -12,7 +12,7 @@ print KML q{<?xml version="1.0" encoding
 
 my $json = JSON->new;
 
-open my $fh, '<', $ARGV[0] or die "error opening $ARGV[0] $!\n";
+open my $fh, '<', OmLand.geojson or die "error opening OmLand.geojson $!\n";
 my $text =  do { local $/; <$fh> };
 close $fh;