my $datum = '01.01.2006';
my $Author = 'foo';
my $comm = 'bar';

format STDOUT =
 # @<<<<<<<<< | @<<<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $datum,      $Author,           $comm
.
write;