In test.pl:

my $object = Foo->new('admin');

In Foo.pm:

sub change_config
{
  my $self = shift();
  return unless $self->{status} ne 'admin';
  ...
}
[download]

change_config isn't doing anything if the status is equal to 'admin'. Try changing the status you're giving the object to something else.

Also, you might want to look into using one of the Config::* modules (such as Config::INIFiles) for parsing your config file.

bbfu
Black flowers blossom
Fearless on my breath