Specifically,

my $packed = pack "H*", sprintf "%07dC",  $num_records;
[download]

would give you a PIC S9(7) COMP-3 packed decimal (positive only).

Perl can count the records and add the trailer record, too, but I don't know what record format you're using.