Bin ohne "fork" besser zurecht gekommen.
Das Skript starte ich in einer Konsole: gibt es eine Möglichkeit das Schließen der Konsole (mit Klick Kreuz rechts oben) abzufangen?




sub write_to_file {
my $traffic = shift;
my @date = localtime();
my $day = $date[3];
my $month = $date[4] + 1;
my $year = $date[5] + 1900;
open( my $out, '>', $file ) or die "$!";
print $out "$day:$month:$year:$traffic\n";
close( $out );
}

Diese Subroutine gehört zum ( hoffentlich ) folgenden Skript.