#!/usr/bin/perl
use strict;
use warnings;
  
use DBI;
  
my $dbfile = "sample.db";
  
my $dsn      = "dbi:SQLite:dbname=$dbfile";
my $user     = "x";
my $password = "x";
my $dbh = DBI->connect($dsn, $user, $password, {
    PrintError       => 0,
    RaiseError       => 1,
    AutoCommit       => 1,
    FetchHashKeyName => 'NAME_lc',
});
    
if(-z $dbfile){  
  my $sql = <<'END_SQL';
  CREATE TABLE foo (
      id       INTEGER PRIMARY KEY,
      LoginTime    DATE
  )
END_SQL
  $dbh->do($sql);

  my @DATES = ('2019-09-29 17:00:48.000', '2019-09-29 17:29:02.000', '2019-09-30 10:22:46.000', '2019-09-30 11:16:23.000');

  for(my $i=0;$i<=$#DATES;$i++){
    $dbh->do('INSERT INTO foo (LoginTime) VALUES (?)',
      undef,$DATES[$i]);
  }
}


# This is what I thought would work
#my $sql = 'select distinct cast(LoginTime as date) from foo GROUP BY LoginTime';

# this actually works in SQLite (strftime)
my $sql = 'select distinct strftime("%d-%m-%Y",LoginTime) from foo';

my $sth = $dbh->prepare($sql);
$sth->execute();
while (my @row = $sth->fetchrow_array) {
   print "[@row]\n";
}

$dbh->disconnect;