perl - カレンダーを縦に表示するには？

Question

カレンダーを縦に表示する必要があります。どうすればこのフォーマットを取得できますか? サンプルの perl スクリプトをいくつか試しました。

脚本：

  use strict;
  use Calendar::Simple;

  my @months = qw(January February March April May June July August
                  September October November December);

  my $mon = shift;
  my $yr  = shift;

  my @month = calendar($mon, $yr);

  print "\n$months[$mon -1] $yr\n\n";
  print "Su Mo Tu We Th Fr Sa\n";
  foreach (@month) {
    print map { $_ ? sprintf "%2d ", $_ : '   ' } @$_;
    print "\n";
  }

通常のカレンダーとして横長フォーマットとして実行できます。縦書きに変更するにはどうすれば...

次のように出力する必要があります。

sun   1 5 6   
mon  2 3
wed ...
thu ...
fri ...
stu ... 

これをどうしよう……。