>     Erratum again. The devices are accessible through symlinks in 
> /sys/dev/char and /sys/dev/block. The name of each symlink apparently 
> duplicates the contents of the dev file in the directory it points to. Eg:

sub run_dir($$) {
    my $dir = shift;
    my $type = shift;

    opendir(my $dh, $dir) || return;
    while(readdir $dh) {
    next unless m/^\d+:\d+$/;
    my $file = "$dir/$_";
    my ($maj,$min) = split(/:/);

    my $name = readlink($file);
    next unless (defined($name));
    $name =~ s|.*/||;
    print "mknod $name $type $maj $min\n";
    }
    closedir $dh;
}

sub main() {
    run_dir($char, "c");
    run_dir($block, "b");
}