my $cmd = './ntlogin.sh data.out > new.bat';
 system($cmd) == 0
      or die "system cmd '$cmd' failed: $?";