#!/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";
    exec("/usr/bin/firefox ' $link'");
    exit(0);

  } else {
    # Parent-Prozess

    print "Ich bin der Vater: ",$$,"\n";
    print "Und mein Kind ist: ",$pid,"\n";

    # Etwas Ausgabe:
    for((reverse(1..35)){
      print "warte noch $_ Sekunden\n";
      sleep 1;
    }

    # Kind töten
    kill(15,$pid);
    waitpid($pid);

  }
  sleep(20);
}