use strict;
use warnings;
use Data::Dump::Streamer;

my $coderef=sub{
                my $var = shift;
                print "$var is a test\n";};

print $coderef."\n";
$coderef->("this");

my $string= Dump($coderef)->Out();

print $string."\n";