#!/usr/bin/perl use strict; use warnings; my $logfile = '/home/your_account/path_to_file/ip.txt'; open my $inlog, "<", $logfile or die "Couldn't open $logfile.\n$!"; my $ip = ''; while ( my $line = <$inlog> ) { next unless $line =~ m/^IP:\s*\d+\.\d+\.\d+\.\d+\s*$/; chomp $line; $ip = $line; } close $inlog; print "Content-Type: text/html\n\n"; print << "HTML";

$ip

HTML