Select Code to Download

#!/usr/bin/perl
use warnings;
...
}
close (INFILE);
close (DATA);

__DATA__
1 cross
...

__EXPECTED-OUTPUT__
3