#!/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 $time=time();

  # eval führt den code "getrennt" aus
  # Signale etc. haben keine Wirkung
  # auf das Script drum herum
  eval {
    $SIG{ALRM}=sub{alarm(0); exit(0) };
    alarm(35);
    system("/usr/bin/firefox  '$link'");
    alarm(0);
  }

  print "Habe ".( time() - $time )." Sekunden gebraucht\n";
  sleep(20);
}