my $ref = bless \%ENV;
say $ref->path();
sub path{
    my $self = shift;
    return $self->{PATH};
}