#!/usr/bin/perl use strict; print "Content-type: text/html\n\n\n\n"; my $File = "/home/web1/public_html/IP.txt"; open(FILE,"/home/web1/public_html/IP.txt"); my $Line = ; chomp $Line; close FILE; my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($File); my $time = time(); print "
Last known ip address was $Line\n"; print qq(
To transfer to the website, click here\n); my $Diff = $time - $mtime; if ($Diff > 4000) { print "

ERROR: The ip address should have been updated once an hour, but 4000 seconds has past since the last update.
$time - $mtime = $Diff \n"; }