Select Code to Download

sub get_table_CRC {

...
    }
    return [$count, $crc];
}

sub get_fields 
{
...
    return join ",", @fields; 
}

#!/usr/bin/perl -w
use strict;
...
{
    print "NO DIFFERENCES\n";
}