--- cfmaps/cfworldmap	2005/12/26 12:15:11	1.3
+++ cfmaps/cfworldmap	2006/09/16 18:39:11	1.4
@@ -26,7 +26,9 @@
 my @W = (100..129);
 my @H = (100..129);
 
-open my $fh, ">:utf8", "world/index.xhtml"
+my $DIR = $ARGV[0] || "world";
+
+open my $fh, ">:utf8", "$DIR/index.xhtml"
    or die "index.xhtml: $!";
 
 select $fh;
@@ -52,5 +54,5 @@
 
 close $fh;
 
-#system "gzip", "-7f", "world/index.xhtml";
+#system "gzip", "-7f", "$DIR/index.xhtml";