#!/usr/local/bin/perl5.8.0 -w
#
use FileHandle;
use strict;

my $content="Hallo dies ist ein Test"; 

[B]my $fd = new FileHandle("test.txt");[/B]

print $fd "\n------------------------\n$content";
$fd->close();