Select Code to Download

@data = split;
($mask,$x,$y,$ftdens) = @data;

while(<>) {

#!/usr/bin/perl
use strict;
...
    $count++;
}
close(OUTFILE);