Select Code to Download

#!/usr/bin/perl
...
{
    print "-1\n";
}

This file is to check the number of occurences of the word reject
...
reject:1
390 rows rejected for sub