The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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

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