Select Code to Download

while (<DPSLOTFILE>) {
    my ($slot) = /$dpdrivloc:\s*(\d+)/;
    print "$slot";
}

binmode (STDOUT);