Select Code to Download

#!/usr/bin/perl
use warnings;
...
}

print Dumper \%mominfo;

This is Mom (2)'s main record: BC000    0    2            M           
+                           999
$VAR1 = {
...
                                  ]
                  }
        };