Select Code to Download

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