use IO::File;
my $fh = IO::File->new;
$fh->open('logfile', O_CREAT|O_RDWR|O_APPEND) or die $!;
$fh->print("Neue Zeile\n");
$fh->close;