#!/usr/bin/perl

use strict;
use warnings;
use XML::CSV;
use TEXT::CSV;
use Time::Local;

my @d;
my %ha;
my $file = 'dDos_flows.csv' or die $!;
my $file1 = 'dDos_flows1.csv' or die $!;
open(my $fh,'<:encoding(UTF-8)',$file);
open(my $fh1,'>:encoding(UTF-8)',$file1);
while(my $f=<$fh>)
{
chomp $f;
my @data=split ",",$f;
my $res=@data[2];
my @conv=scaler(localtime($data[2]));
print "$conv[2]\n";
}