use Fcntl;
use SDBM_File;

tie (%ini, 'SDBM_File', $ini_db_file, O_RDWR, 0640)
  or die( "Tie-dye :-) : $!" );
my $last_time = $ini{last_run_time};
if( $last_time ) {
  print "Last run was [$ini{last_run_time}] seconds after the epoch\n";
}
else {
  print "Never been run before...\n";
}
$ini{last_run_time} = time();
untie %ini;