#!/usr/bin/perl
# eins.pl
use strict;
use warnings;
open (FH, '|-', "./zwei.pl") or die ("Kann zwei.pl nicht oeffnen: $!");
print FH "Einen schönen Gruss von Skript1\n";
close FH;
print "eins.pl ist zuende\n";