Select Code to Download

   # Change line 44 inside init_wb
   $wb->sheets($_)->set_column(0, 4, 15, $center);
...
   # To this
   $wb->sheets($_)->set_column(0, 19, 15, $center);

   # Replace the if/elsif block inside mce_loop with the following

...
      print "EMEA ---- DONE.\n";
   }

$ time perl write_60mil.pl
AMS  ---- DONE.
...
user  12m 3.641s
sys    0m 4.242s

# update /etc/fstab
tmpfs /dev/shm tmpfs defaults,size=5g 0 0
...
# afterwards, remount /dev/shm
mount -o remount /dev/shm