use Storable qw( freeze thaw );

{   no warnings 'once';
    $Storable::Deparse=1;
    $Storable::Eval=1;
}
thaw( freeze( sub { print "hello world\n" } ) )->();