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

Crossfire::init "/tmp";

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