Select Code to Download

#!/usr/bin/perl
use strict;
...
$ perl test.pl
Thursday
Monday

#!/usr/bin/perl
use strict;
...
Sunday
Friday
Wednesday

#!/usr/bin/perl
use strict;
...
Tuesday
Wednesday
Thursday

#!/usr/bin/perl
use strict;
...
Thursday
Friday
Monday