Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl

print $template = "A8 A4 A12 l s s s s l a16 l";
...
        if ($hold{$user} < $over365) { printf( "%12s %d\n", $user, $ho
+ld{$user}
); }
};

Select or download this

A8 A4 A12 l s s s s l a16 l     kileykl 1043180949
     romanst 1042640335
    hallchar 1033636020
...
      orsbll 1042571980
      orsmjr 1043676426
      orsawb 1036078160