#!/usr/bin/perl

use DBI;
use strict;

my $db = "CAMDPAMS";
my $host = "192.168.8.10";
my $sth;
my $from = 'yesterday';
my $to = 'today';
my $sql = "select mis.return_fls_infection_view_world_direct(?,?);";
my $dbh = DBI ->connect("dbi:Pg:dbname=$db;host=$host","olegk","4Q2073gl",{AutoCommit=>0,RaiseError=>1,ChopBlanks=>1});
$sth = $dbh->prepare($sql);
$sth->execute($from,$to);
$sth->finish;
$dbh->commit;
$dbh->disconnect;
print "1\n";