use Data::Dumper;

my $sub = sub {
    my $filename = shift;    
    return '/tmp/' . $filename;
};

print Dumper($sub);

##</code><code>##

$VAR1 = sub { "DUMMY" };