Select Code to Download

sub new {
  my $self = shift;
...
__output__

I was invoked by: main

{
  package demo;
...
$VAR1 = bless( {
                 'foo' => 'a string'
               }, 'demo' );