Select Code to Download

#!/usr/bin/perl
use strict;
...

$ perl test.pl
3

#!/usr/bin/perl
use strict;
...
$ perl test.pl
5 <Sundayyy:Saturday>
3 <sunday:saturday>