#!/usr/bin/perl --
use strict;
use warnings;

package Foo;

sub new {
    my $self = { 'foo' => 'bar' };
    return bless $self;
}

sub DESTROY {
    print $_[0]{'foo'} . "\n";
}

package main;

my $foo = Foo->new;
exit;

##</code><code>##

bar