Perl Frage

[aticio]

Hallo zusammen!
Bin Anfänger!!
Kann mir jemand den folgenden code(subroutine) erklären???
Vielen Dank!!

sub get_url {
if ($ENV{'REMOTE_HOST'}) {$remote_ip = $ENV{'REMOTE_HOST'} }
elsif ($ENV{'REMOTE_ADDR'}) {$remote_ip = $ENV{'REMOTE_ADDR'} }
if ($remote_ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
$Address = pack('C4',$1,$2,$3,$4);
if ($Address = (gethostbyaddr($Address,2))[0]) {
$remote_url = $Address;
}
}
$remote_url =~ tr[A-Z][a-z];
return ($remote_ip,$remote_url);
}