Select Code to Download

#!/usr/local/bin/perl5_8
use strict;
...

print $template->output();

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxbefore foreach loop hour min sec 
+11 13 44
during foreach loop hour min sec 11 13 45 xxx key is 649001 
...

during foreach loop hour min sec 12 3 44 xxx key is 660062-05279 
during foreach loop hour min sec 12 4 19 xxx key is 660062-15279