#!/usr/bin/perl
use DateTime;
use IO::File;
use POSIX qw(strftime);


$LOGFILE = "second.txt";
open(LOGFILE) or die("Could not open log file.");
foreach $line (<LOGFILE>) {
    chomp($line);              # remove the newline from $line.
($stream, $timedate) = split("\t");

my $time_t = POSIX::strftime( "%Y-%m-%d %r", localtime($timedate) );

my ($streamid) = $stream =~ m!.*@([^_]*)-!;
my ($streamname) = $stream =~ /(.*)?\@/;
open (file, ">$streamid/$streamname") || die "file not opened";
print  file "<event>\n";
print  file "<stream-id>$streamid</stream-id>\n";
print  file "<event-name>$streamname</event-name>\n";
print  file "<primary-event>\n";
print  file "<delete-time>$time_t</delete-time>\n";
print  file "</primary-event>\n";
print  file "</event>\n";
close (file);
     }
close (LOGFILE);