$ time perl write_60mil_serial.pl
AMS  ---- DONE.
APJ  ---- DONE.
EMEA ---- DONE.
Node List is Done.

real  10m54.015s
user  10m51.045s
sys    0m 3.224s