#! perl
use strict;
use warnings;
use 5.010;

$| = 1;
my $num = 42;

{
    package Dog;

    sub new     { return bless {}; }
    sub bark    { say 'Bow wow!'; }
    sub DESTROY { print "destroy\n"; ++$num; }
}

my $dog = Dog->new();

print 'hello ', 
      $dog->bark(),
      undef $dog, 
      eval('$dog->bark()'),
      "|$num|",
      "world\n";

print $num;