#!/usr/bin/perl
use strict;
use warnings;
use File::stat;

my $st=stat("/dev/null");
printf "major: %d, minor: %d\n", $st->rdev >> 8, $st->rdev & 0xFF;
__END__
major: 1, minor: 3