Select Code to Download

    next if /^robot/;
    $count++;
    system( ... );

my $drive;
my $count = 0;
open( LIST, "tpconfig -l|" ) or die $!;
...
    (system("tpconfig -delete -drive -index ${count}") == 0) or print 
+"Error deleting: $?";
    $count++;
}