Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
0 Sunday
1 Monday
2 Tuesday

my $today = today;
my @names = map { ($today + $_)->strftime("%A")} 0 .. 6;

...

say "localtime is: " . localtime;
say $in_order[$_], ' ',  $names[$_] for 0 .. $#in_order;

my $today = today;
my @names = map { ($today + $_)->strftime("%A")} 0 .. 6;

...
    my @info = @{ $normal_hrs{$dow} }{qw/ openorclosed open close /};
    # write this day's info to drop down list
}

my $today = today;
my @names = map { ($today + $_)->strftime("%A")} 0 .. 6;

...
    my @info =     @{ $normal_hrs{$date->{dow}} }{qw/ openorclosed ope
+n close /};
    # write this day's info to drop down list
}