my @entries = $mesg->entries;

if ( $layout eq 'tel' ) {
    my @attributes = qw(cn uid pager telephoneNumber);
    my $format = "%-20s %-12s %-15s %s\n";

    printf $format, qw(Name E-Mail Pager Phone);
    print '-' x 75, "\n";

    foreach my $entry ( @entries ) {
        my @line;
        foreach my $attribute ( @attributes ) {
            push @line, ( $entry->get_value($attribute) || 'none' );
        }
        printf $format, @line;
    }
}