use Math::Trig;

$input1='temperatur.inp';
$output1='temperatur.out';

open inp1,"<$input1";
open out1,"> $output1";

# Zerlege in einzelne Zeilen
@Zeilen=<inp1>;

# Anzahl der Zeilen
$end=@Zeilen;

for ($i=0;$i<$end;$i=$i+1)
       {
       @vals = split(/\s+/,$Zeilen[$i]);
	print  out1 "$vals[1],$vals[2]\n";
       }
       
close inp1;
close out1;