Select Code to Download

#!/usr/bin/perl --
sub print_size {
    my ( $msg ) = @_;
...
load POE => qw(Component::Server::TCP);
print_size("POE => qw(Component::Server::TCP)");
__END__

VM: 18660 < WS: 2756 VM: 608 >      empty
VM: 18660 < WS: 2956 VM: 636 >      strict
...
VM: 25352 < WS: 10188 VM: 7444 >      LWP::UserAgent
VM: 34232 < WS: 17548 VM: 14592 >      Moose
VM: 52272 < WS: 22800 VM: 19232 >      POE => qw(Component::Server::TC
+P)