Select Code to Download

#!/usr/bin/perl

...
print " inside $self\n";
}
print "outside $self\n";

outside cat
 inside cat
 inside dog
outside cat