use DateTime;
use IO::All;


$temp < io("$file");

sub conv_dt {

		($Day, $Month, $Year, $Hour, $Minute) = @_;
		$dt = DateTime->new(
		year		=> $Year,
		month		=> $Month,
		day		=> $Day,
		hour		=> $Hour,
		minute		=> $Minute,
		second		=> 0,
		time_zome	=> 'Europe/Berlin',
	);
	$dt->set_time_zone('UTC');
	return $dt->strftime('%d.%m.%Y %H:%M');

}
$temp =~ s/^(\d\d)\.(\d\d)\.(\d\d\d\d)\s(\d\d):(\d\d)/conv_dt($1,$2,$3,$4,$5)/egm;
#	if $temp =~ m/^(\d\d)\.(\d\d)\.(\d\d\d\d)\s(\d\d):(\d\d)/;



$file =~ s/.csv/_SDE_UTC.csv/;		 		# Erweiterung des Dateinamen um "_SDE_UTC". Testdateiname: Report-20131025-0010.skv
$temp >> io("$file");					# Änderungen werden in Datei gespeichert


}