7 lines
110 B
Perl
7 lines
110 B
Perl
use strict;
|
|
require 'feiertage.pl';
|
|
|
|
my %f=&feiertage(2007,"Bayern");
|
|
|
|
foreach(keys %f){print "$_ $f{$_}\n";}
|