#!/usr/bin/perl --
use strict;
use warnings;

print oxone(\&oxone);

sub oxone {
    use Data::Dumper;
    local $Data::Dumper::Deparse=1;
    return Dumper(shift);
}
__END__
$VAR1 = sub {
            use warnings;
            use strict 'refs';
            local $Data::Dumper::Deparse = 1;
            return Dumper(shift @_);
        };