#!/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;