#!/usr/bin/perl
use strict;
use warnings;
use YAML::Any;

local $YAML::UseCode=1;

my $input = sub {
    print "Enter a value: ";
    return chomp (my $ret = <>);
};

print Dump $input;

__END__
Name "YAML::UseCode" used only once: possible typo at test.pl line 7.
YAML::XS::UseCode = 1
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
YAML::XS::UseCode = 
FINAL: YAML::XS::UseCode = 
--- !!perl/code '{ "DUMMY" }'