>есть функция
>char *bin2ip(int *ip) {
>  char *res = (char *)malloc(16);
>  unsigned n = *ip + 0x80000000;
>
>  sprintf(res, "%u.%u.%u.%u", n>>24 & 0xff, n>>16 & 0xff, n>>8 & 0xff, n & 0xff);
>  return res;
>}
>как такое написать на perl?

perldoc Socket

inet_ntoa()

#!/usr/bin/env perl
use Socket;

sub bin2ip($) {
  my $ip = shift;
  return inet_ntoa(pack("N", unpack("N", $ip) + 0x80000000));
}