#!/usr/bin/perl

while(my $ip = shift(@ARGV)){
  my @parts = split /\./, $ip;
  my $sum = 0;

  $sum += $parts[$_] * (1 << 8*(3-$_)) for (0..3);

  print "$sum\n";
}