#!perl -w
use strict;
my $LOG;
my $LOG_FILE = './test_log';
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
my $timestamp = sprintf ("%4d-%02d-%02d %02d:%02d:%02d",$year+1900,$mon+1,$mday,
$hour,$min,$sec);
open ($LOG,  '>', $LOG_FILE ) or die "Could not open the file $LOG_FILE!\n$!\n";
print $LOG "\n### START #########################################################\n";
print $LOG   "### $timestamp\n";
#
###  Scripts that will run to check the module!
#
print      "ok 1 - running the test $0\n";
print $LOG "ok 1 - running the test $0\n";
print $LOG "### E N D #########################################################\n#";
1;