A new DOS Perl Programm