#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw(strftime);

my $creationTime = strftime "%F-%R:%S", localtime;

my $sqlLog = "C:/Users/thclotworthy/squirrel/logs/squirrel-sql-" . $creationTime . ".log";

my $scriptLog = "C:/Users/thclotworthy/squirrel/logs/squirrel-" . $creationTime . ".log";

print "$sqlLog\n$scriptLog\n";

__END__
prints:
C:/Users/thclotworthy/squirrel/logs/squirrel-sql--:23.log
C:/Users/thclotworthy/squirrel/logs/squirrel--:23.log