Elo
public text v1 · immutable#!/usr/bin/perl
use strict;
use Socket qw(inet_ntoa inet_aton);
my $packed = inet_aton($ARGV[0]);
my $ip = inet_ntoa($packed);
print "$ARGV[0] resolves to $ip\n";
#!/usr/bin/perl
use strict;
use Socket qw(inet_ntoa inet_aton);
my $packed = inet_aton($ARGV[0]);
my $ip = inet_ntoa($packed);
print "$ARGV[0] resolves to $ip\n";