#!/usr/bin/perl

  use warnings;
  use strict;

  use Config::Properties::Simple;

  my $cfg=Config::Properties::Simple->new(scope=>'user', optional=>1);
  my $count=$cfg->getProperty(counter => 0);

  print "counter: $count\n";

  $cfg->setProperty(counter => ++$count);
  $cfg->save;