use strict;
use warnings;
use HTTP::Status;
use HTTP::Date;
use LWP::UserAgent;

my ($url, $ua, $request, $response, $mtime);

$url = 'http://www.netzmafia.de/index.html';

$request = HTTP::Request->new('HEAD' => $url);

# Tag               =>    86400 s
# Woche (7 Tage)    =>   604800 s
# Monat (30.5 Tage) =>  2635200 s
# Jahr  (365 Tage)  => 31536000 s

# Aktuelle Zeit in UnixSekunden - 1 Tag = gestern
$mtime = time -  86400;

# Request-Header setzen
$request->header('If-Modified-Since' => time2str($mtime));

# User Agent
$ua = LWP::UserAgent->new();

$response = $ua->request($request);

# 304 --> Keine Aenderung seit der angefragten Zeitspanne
if ( $response->code() == RC_NOT_MODIFIED)
  { print "$url wurde seit ",time2str($mtime)," nicht geaendert!\n"; }
else { print "\aWake up. $url changed!\n"; }