Select Code to Download

Sun    d
Mon    d
...
Oct    m
Nov    m
Dec    m

Sunday
Monday
...
October
November
December

#!/usr/bin/perl
use warnings;
...
close $out_b;

die "File a shorter!\n" unless eof $in_b;