use Digest::SHA1 qw( sha1_hex );

my $ip_address = shift;
my $secret_salt = q{you don't know this part};

my $published_hash = sha1_hex( $ip_address . $secret_salt );