package EvilEval;

use Class::Std;

sub _serial() { '1234567890' };

my %serial_of :ATTR;

sub BUILD {
    my ( $this, $ident, $arg_ref ) = @_;
    $serial_of{$ident} = _serial();
}
sub evil {
    #use Data::Dumper; print Dumper \%serial_of;
    my $string = 'use Data::Dumper; print Dumper \%serial_of';
    eval $string;
}

1;

##</code><code>##

use EvilEval;
my $evil = EvilEval->new();
$evil->evil();