if (open (my $fh, '>>', "manager.properties"))
{
  print $fh "test\n";
  close ($fh);
}