A new effective DOS Perl Programm