# the entire document:

>perl -MPPI -e "print PPI::Document->new('example.pl')"

use strict;
use warnings;
# safety net loaded

my %ha = (  # dont use one letter variables
'ha' => 1,  # this stand for..
'he' => 2,  # and this other for
);
=pod

=h4

documentation

=cut
print $ha{'ha'}."\n"; # other unuseful comment
__END__


# the stripped document

>perl -MPPI -e "$doc = PPI::Document->new('example.pl'); $doc->prune('PPI::Token::Pod'); $doc->prune('PPI::Token::Comment'); print $doc->serialize"

use strict;
use warnings;

my %ha = (
'ha' => 1,
'he' => 2,
);
print $ha{'ha'}."\n";
__END__