Select Code to Download

#!/usr/bin/perl

...
012345678
456782011
456782013

while (<DATA>) {
    chomp;
...
    }
    warn "rejected input: $_\n";
}