#!/opt/perl/bin/perl
# CROSSFIRE_LIBDIR=/opt/cf/share/crossfire/ eg/mapread ../cf/maps-bigworld/scorn/kar/drink 
use Deliantra;

my $m = Deliantra::read_arch ($ARGV[0]);