#!/usr/bin/perl

use POSIX;
use warnings;
use strict;

my $file = "lines.txt";
open(LINES, "<$file");

my @ar_lines = <LINES>;
print $ar_lines[0]."\n";
foreach my $link (@ar_lines) {
	print $link."\n";
	my $pid = fork();

	if($pid == 0){
		# Child-Prozess	
		print "Ich bin das Kind:  ",$$,"\n";

		# hier zu öffnender link, klappt alles nicht, auch nicht mit Backticks
		# my $ret_val = system("/usr/bin/firefox $link");
		# my $ret_val = exec("/usr/bin/firefox $link");
		# my $ret_val = `/usr/bin/firefox $link &`;
		# my $ret_val = system("/usr/bin/firefox $link &");
		system("/usr/bin/firefox test.html");

		sleep(35);
		exit(0);
	} else {
		# Parent-Prozess
		print "Ich bin der Vater: ",$$,"\n";	
		waitpid($pid, 0);

		print "Ich bin der Vater: ",$$,"\n";
		print "Und mein Kind ist: ",$pid,"\n";
	}
	sleep(20);
}