#!/usr/bin/perl -w use strict; use SiteSummary; my %debian_edu_vers; my $edu_ver; #for_all_hosts(\&handle_host); print_summary(); handle_host(); sub handle_host { # my $hostid = shift; foreach ( get_debian_edu_ver ) { print "$_\n"; } } sub print_summary { printf(" %-20s %5s\n", "debian-edu-version", "count"); }