use strict;
use warnings;
use 5.010;

use Greeting;


say 'Hi';
{
    my $g = Greeting->new;
}
say 'Bye';

##</code><code>##

package Greeting;
use strict;
use warnings;
use 5.010;
use Data::Dumper;

sub new {
    my ($class) = @_;

    return bless {}, $class;
}   

sub AUTOLOAD {
    our $AUTOLOAD;
    say $AUTOLOAD;
}
DESTROY {
   say 'destroy';
}

1;