Select Code to Download

use strict; 
my $drive;
...
    # You should check all system calls for error.
    # system will set $? to an error code for you.
}

system("tpconfig -delete -drive -index ${count} 2>nul:");
die "Unknown Error with tpconfig $count" if $? >> 8;