use DXUser;
use Carp;
-$userfn = $ARGV[0] if @ARGV;
-unless ($userfn) {
- croak "need a filename";
-}
+$inpfn = $ARGV[0] if @ARGV;
+croak "need a input filename" unless $inpfn;
DXUser->init($userfn, 1);
-do "$userfn.asc";
+do "$inpfn";
print $@ if $@;
DXUser->finish();