open (LOG, ">" . $logfile) or die $!;
my $oldFH = select(LOG);

print "das hier geht ins log$/ ";

select ($oldFH); # vorherigen Standardhandle wiederherstellen, meistens STDOUT