I didn't comment on these originally as these issues are moot if you adopt my suggestion, above, but the feedback may be helpful in other situations nonetheless.

Your code:

my @date = split(" ", localtime(time));
my $day = $date[0]; 
my %days = ();
[download]

Your split splits the entire string, when you really only need the first three characters. There are tons of ways to do this (including split), but this is what substr is made for:

my $day = substr(localtime, 0, 3); # Sun..Sat

There is never any need to initialize %days with my %days = ();, since this is exactly equivalent to my %days;. Furthermore, since you go on to assign a new list to it in the very next statement, you may as well combine them, with my %days = (Mon => 'Monday', Tue => 'Tuesday', ...);

You can automate this even further with map:

my %days = map { substr($_,0,3) => $_ } 
    qw/Monday Tuesday Wednesday Thursday Friday Saturday Sunday/;
[download]

(N.B.: you had Thursday abbreviated as "Thur"; shortening it to "Thu" makes it consistent with the others, further simplifying the logic).

This may not be the way I would do it, since modules like DateTime are ubiquitous and effortlessly scale beyond this simple example. But your method certainly works, so if it's what you prefer, great! The main point of this is to show one way your existing logic could be simplified. I know you're not the OP, but as you're new to the Monastery I thought you might appreciate the feedback.