Help for this page
#!/usr/bin/perl -w ... print "dates\n",join("\n",sort keys %dates),"\n"; print "gaps\n",join("\n",@$gaps),"\n";