#!usr/bin/perl
use DBI;
use DBD::mysql;
use POSIX;
$scripttime=localtime(time);
@frequency=("4","10","24","48","168","240");
$user="root";
$password="bnhgfbjf";
$database="kgjthiohjo";
$dsn = "dbi:mysql:$database:localhost:3306";
$dbh= DBI->connect($dsn, $user, $password)
or die "Couldn't connect to database: ";
open (FILE, ">results.txt" )or die "Can't open results output file: $!";
print FILE "**************start scripting '$scripttime'******************\n";
foreach $frequency(@frequency)
{
$timestamp=strftime("%Y-%m-%d %H:%M:%S",localtime(time-3600*$frequency));
$query="xyz";
print "$timestamp";
print "\n";
print "$frequency";
print "\n";
my $sth = $dbh->prepare($query);
my $rv = $sth->execute or die "($DBI::err): $DBI::errstr";
print FILE "***********Fetch not started for the following categories of frequency'$frequency' hours********************\n";
$sth->dump_results( 80, "\n", "-> ", \*FILE );
sleep(5);
}
close FILE or die "Error closing result file: $!\n";