use Package1;
use Data::Dumper;

my Package1 $p = Package1->new;
$p->{attr1} = "set_1";
print $p->{attr1}, "\n";
$p->{attr4} = "set_4"; #this should fail, and did fail