#!/usr/bin/perl
use IO::Socket
open(DAT, $ARGV[0]) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT);
my $p;
foreach (@raw_data) {
print inet_ntoa(pack('N',$_));
print "\n";
};