$meta->{'system'}->{'clock'} = [localtime(time)]; $meta->{'system'}->{'clock'}[5] += 1900; $meta->{'system'}->{'clock'}[4] += 1;
$meta->{'system'}->{'timestamp'} = sprintf('%6$04d-%5$02d-%4$02d %3$02d:%2$02d:%1$02d',@{$meta->{'system'}->{'clock'}});
my ($dd,$dm,$dy) = (1,$meta->{'system'}->{'clock'}->[4],$meta->{'system'}->{'clock'}->[5]);
if ($dm == 12) { $dm = 1; $dy++; } else { $dm++; }
my $expire = sprintf('%02d.%02d.%04d',$dd,$dm,$dy);
$dbh->do("insert into `USERS_PIN` (`CODE`,`RATE`,`EXPIRED`,`INFO`) values (?, ?, ?, ?)", undef, ($code, 'demo', $expire,undef));

CREATE TABLE `USERS_PIN` (
	`PIN_ID` BIGINT(20),
	`CODE` VARCHAR(20),
	`TYPE` ENUM,
	`STATUS` ENUM,
	`RATE` VARCHAR(40),
	`DURATION` INT(10),
	`CREATED` TIMESTAMP,
	`ACTIVATED` TIMESTAMP,
	`EXPIRED` TIMESTAMP,
	`INFO` VARCHAR(200)
);