Select Code to Download

use strict;
use warnings;
...
 {
    print $name{$n}."  " . scalar(localtime($age{$n})) . "\n"; 
}