use DXVars;
use DXUser;
+use DXUtil;
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->del_file($userfn);
DXUser->init($userfn, 1);
-do "$userfn.asc";
+my $s = readfilestr "$inpfn";
+eval $s;
print $@ if $@;
DXUser->finish();