sub CreateCmdFile {


        $FileName = 'D:\\Perl\\pl\\Check\\' . "$CurrentServerName" . '.cmd';
        unlink($FileName);
        open(servercmd, "> $FileName");
        print servercmd '@echo off' . "\n";
        $VeritasLocation = '"\\\\' . "$CurrentServerName" . '\\C$\\Program Files\\Veritas\\Backup Exec\\NT\\Data\\*.txt"';
        print servercmd 'dir ' . "$VeritasLocation" . ' > D:\\Perl\\pl\\Check\\' . "$CurrentServerName" . '.txt';
        close(servercmd);
        system("$FileName");
}