open mt $DAT, '<', $ARGV[ 0 ] or die "Cannot open '$ARGV[0]' $!";