Main( @ARGV );
exit( 0 );
sub Main {
    my $activity = { ... };
    my $fieldLength = measureFieldLengths( $activity );
    $fieldLength and writeOutHashrefs( $activity, $fieldLength );
}