鲸鱼研究所所长

#!/usr/bin/perl -wuse strict;use Time::Piece qw();#######my $today = &GetToday()my days = &...