Select Code to Download

use warnings; 
..
# in the block
no warnings qw(uninitialized);

sub skipblanks {
#    my @data = @_;
...
        return $x;
#   }
}