Select Code to Download

use strict;
use warnings;
...
  $t->close;
}

use strict;
use warnings;
...
print @date;

$t->close;