#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Fcntl;

sysopen(my $fh,'test.txt',O_RDWR|O_CREAT) or die $!;
foreach my $in (split(/,/,readline(scalar($fh)))) {
	say "lesen";
}