#!/usr/bin/perl

use warnings;
use strict;
use POSIX qw( strftime );

my ($heute, %plz, $p);

format STDOUT_TOP =
Zaehlung vom @<<<<<<<<<:
$heute
 Wert                  Anzahl
==============================
.
format STDOUT =
 @<<<<<<<<<<<<<<<<<<<< @#####
 $p,                   $plz{$p}
.
$heute = strftime "%d.%m.%Y", localtime;
$plz{1040} = 987;
$plz{1020} = 3212;
$plz{1010} = 1234;
$plz{1030} = 14;
foreach $p ( sort keys %plz ) {
   write;
} # foreach
# so etwas wie ein STDOUT_FOOTER gibt es
# leider nicht, daher muss man es händisch
# machen.
print '=' x 30, "\n";