use Date::Calc qw( Time_to_Date );  #($year,$month,$day, $hour,$min,$sec) = Time_to_Date([time]);

open (INPUT_FILE, '>c:/data.txt');

my @current_date = Time_to_Date(time);
my $db_command = "use pubs2\ngo\nselect *\nfrom authors\ngo\nquit";

print INPUT_FILE $db_command;

close (INPUT_FILE);

my $output_file_path = "c:/Log_".$current_date[2]."_".$current_date[1]."_".$current_date[0].".txt";
system('isql -U sa -P -i c:/data.txt -o '.$output_file_path);

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my $fichero_entrada = 'C:/data.txt';
open (INPUT_FILE, ">$fichero_entrada");
print INPUT_FILE join "\n", 'use pubs2', 'go', 'select *', 'from authors', 'go', 'quit';
close INPUT_FILE;

my @current_date     = localtime();
my ($dia,$mes,$anno) = ($current_date[3], $current_date[4]++, $current_date[5]+1900);

my $fichero_salida = sprintf "C:/Log_%02d_%02d_%04d.txt ", $dia, $mes, $anno;

system("isql -U sa -P -i $fichero_entrada -o $fichero_salida");

__END__

my $fichero_salida = sprintf "C:/Log_%04d_%02d_%02d.txt ", $anno, $mes, $dia;