#!/usr/bin/perl
my $s = sub { my $k = shift; return $k;};
use B::Utils qw( walkoptree_simple );
print walkoptree_simple( $s, { print } );