Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings;
...
    next unless grep length, @$row;
    print "Scraped info: ", join(',', @$row), "\n";
}