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

my $file=shift || '/dev/null';
my $st=stat($file) or die "Can not stat $file\n";
printf "major: %x, minor: %x\n", $st->rdev >> 8, $st->rdev & 0xFF;