#!/usr/bin/perl -w    #ohne das -w gibt es mir nen Fehler aus
use strict;
use warnings;
open (IN, "<h.txt") || die "Die Datei wurde nicht gefunden\n";


while (<IN>)
	{
	print $_ if $. == 5;
	
	if ($. == %)
		{
		use DateTime;
		my ($epoch1, $epoch2) = (split ' ', $line)[18,19];
		my $date1 = DateTime->from_epoch( epoch => $epoch1 );
		}
	}
close (IN);