#!/usr/bin/perl
use Net::RawIP;
print rdev($ARGV[0]),"\n";