1:#!/usr/local/bin/perl5.8.0 -w
2:#
3:use FileHandle;
4:
5:my $content="Hallo dies ist ein Test"; 
6:local $fd; 
7:$fd = new FileHandle("test.txt");
8:print $fd "\n------------------------\n$content";
9:$fd->close();