#!/usr/bin/perl
use IO::All;
"---\n" >> io('sammeldatei.txt');
io('/proc/cpuinfo') >> io('sammeldatei.txt');