Logging ips in PERL

There are many ways of logging other people's ips.
Want to know how to do it in PERL?
Here's a tutorial on it:
I am doing it in CGI (Perl)

Code:

---

#!/usr/bin/perl
# Above is the path to perl interpreter
$countName = 'count.txt';
# Above is the name of file you want to save to nr. of
counts
$variableName = 'count';
# above is the variable name you want to set to nr. of counts in flash
open(COUNT,"<$countName");
$count = <COUNT>;
close(COUNT);
$count++;
open(COUNT,">$countName");
print COUNT "$count";
close(COUNT);
print "Content-type: text/plain\n\n";
print "$variableName=$count";
exit;

---

Nice? Or has it been posted before?