#!/usr/bin/perl

use strict;
use DBI;


my $pidm = 53;
my $location = "keypad"; 
my $time = "now"; 


system("./insert.pl $pidm $location $time");

exit;