#! /usr/bin/perl -w -T

use YAML;

my $foo = sub { print "bar" };

print Dump($foo)."\n";

##</code><code>##

--- !perl/code: '{ "DUMMY" }'