Alternate...

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11153644
use warnings;
$SIG{__WARN__} = sub { die @_ };

my $cat = { dog => 'golden retriever' };

my $x='$cat->{dog}/mouse';
$x = eval qq("$x");
my $y=localtime();
$_=$x;
my $z = "$_:$y";

print "$z\n";
[download]