#!/usr/bin/env perl

use strict;
use warnings;
use Date::Calc qw( Day_of_Week Today Day_of_Week_to_Text);
use Try::Tiny;
use feature qw(say);

my %lookup = ( 'Friday' => \&acme );

my $day = Day_of_Week_to_Text( Day_of_Week(Today) );

say $day;

$lookup{$day}->();

sub acme {
    try {
        ...;
    }
    catch {
        print $_;
    };
}

__END__