#!/usr/bin/perl
my $file = 'c:\tmp\test.txt';
open(INFO ,">>$file") || die "Fehler $!";
print INFO "test\n";
close INFO;
print STDERR "test...\n";
1;