my $tty_rdev = (stat('/dev/dsp0'))[6];
 
print  major($tty_rdev), " ", minor($tty_rdev),"\n";
 
sub MAJOR_MASK   () { 03777400 }
sub MAJOR_SHIFT  () { 0000010 }
sub MINOR_MASK   () { 037774000377 }
sub MINOR_SHIFT  () { 0000000 }
 
sub major
{
    my $dev = shift;
 
 
    return defined MAJOR_MASK ? ($dev & MAJOR_MASK) >> MAJOR_SHIFT : undef;
}
 
 
 
sub minor
{
    my $dev = shift;
 
 
    return defined MINOR_MASK ? ($dev & MINOR_MASK) >> MINOR_SHIFT : undef;
}