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

my $content="Hallo dies ist ein Test"; 
my $fd; 
$fd = new FileHandle("test.txt");
print $fd, "\n------------------------\n$content";
$fd->close();