#!/usr/bin/perl
#########################################################
## Version Test Erstellt: 14.12.2010 Verfasser: Bremm
#########################################################

use Cwd;
use IO::Handle;

$file_to_write = "raw.dat";

if (open (SYSHANDLE,">$file_to_write"))	{ print "\n\t\tSchreiben beginnt ($file_to_write).\n"; }
else	{ print "\n\n\t\tFehler: konnte \"$file_to_write\" nicht oeffnen... :-(\n"; exit; }
SYSHANDLE->autoflush(1);

for(my $i = 1; $i <= 100; $i++) {
 print SYSHANDLE "$i\n";
 sleep(1);
}
close(SYSHANDLE);