use strict;
use warnings;
use LWP::Simple;

$| = 1;
# ------------- Konfiguration ---------------
# Abruf Bild von TV-IP100
my $url = 'http://10.10.10.245/IMAGE.JPG';

# Zeit zwischen zwei Bildern in Sekunden
my $Delay = 10;

# Basis-Dateiname (mit Pfad, ohne Endung)
my $Datei = 'cam/bild';

# Dateiendung
my $Endung = 'jpg';
# -------------------------------------------

# Signal-Handler einsetzen
my $finish = 0;
$SIG{INT}   = sub { $finish++; };  
$SIG{QUIT}  = sub { $finish++; };  

while (! $finish)
  {
  # Datum und Uhrzeit ermitteln
  my ($Sek, $Min, $Std, $Tag, $Mon, $Jahr) 
          = localtime(time);
  $Mon++;
  $Jahr += 1900;

  # einstellige Werte zweistellig machen
  $Mon = $Mon = '0' . $Mon if ($Mon < 10);
  $Tag = $Tag = '0' . $Tag if ($Tag < 10);
  $Std = $Std = '0' . $Std if ($Std < 10);
  $Min = $Min = '0' . $Min if ($Min < 10);
  $Sek = $Sek = '0' . $Sek if ($Sek < 10);

  # Bild speichern
  my $localfile = "$Datei.$Jahr.$Mon.$Tag.$Std.$Min.$Sek.$Endung";
  print $localfile,"\r";
  my $res = getstore($url, $localfile);
  
  # und warten
  sleep($Delay);
  }
print "Programm beendet                \n";