#!/bin/perl
use IO::File;
my $out = new IO::File;
$out->open("/dev/null", O_CREAT | O_WRONLY | O_TRUNC, 0666);
