#!/usr/bin/perl -T

@ARGV == 4 or die "usage: mknod-m600 <path> <b|c> <major> <minor\n";

my ($path) = $ARGV[0] =~ /(.*)/;
my ($type) = $ARGV[1] =~ /([bc])/;
my ($major) = $ARGV[2] =~ /(\d+)/;
my ($minor) = $ARGV[3] =~ /(\d+)/;

%ENV = (PATH => '/bin:/sbin:/usr/bin:/usr/sbin');

exec 'mknod', '-m', 600, $path, $type, $major, $minor;
