Select Code to Download

    $output = capture("$comando");
...
    $outTitolo = capture("$titolo");

    undef my $oreTotali;

print FILE "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";

print FILE "\n" x 17;

sub count_unique {
    my @array = @_;
    my %count;
    map { $count{$_}++ } @array;

sub count_unique {
    my %count;
    $count{$_}++ for @_;