#!/usr/bin/perl use strict; use warnings; use lib "$ENV{PWD}"; use myConfig; # create the objecto for write the db my $c_config = myConfig->new(); # add default to the configuration db $c_config->add_default(default=>'aa'); sub skip { my (%args)=@_; $c_config->add_default(default=>'bb'); return 0; }