#!/usr/bin/perl -w
use strict;

open(STATUS, "./skript1.pl 2>&1 |");

while (<STATUS>) {
        print;
}
close STATUS;