Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    next unless $seenval;
    print $FREQ "$seenval\t$seen{$seenval}\n";
}