open(TMP, " cat $filename | extract-line |") || die "Can't open SILC process";
    $output = join("\n", <TMP>);
    close TMP;
    print($output);