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

my $c = Crossfire->new;

my $m = $c->read ($ARGV[0]);