Sophie: perl-Net-RawIP-0.250.0-7.mga4 x86

perl-Net-RawIP-0.250.0-7.mga4.x86_64.rpm

#!/usr/bin/perl
use strict;
use warnings;

use Net::RawIP;
die "Usage: $0 [hostname|IP]\n" if not @ARGV;
print rdev($ARGV[0]),"\n";