#!/usr/bin/perl
# vim: sw=4

use strict;
use warnings;

close STDIN;
close STDOUT;
close STDERR;
open STDIN, "</dev/null";
open STDOUT, ">/dev/null";
open STDERR, ">/dev/null";

open my $pipe, "ps aux |" or die "pipe failed:$!\n";
open my $err, ">", "/tmp/err" or die "couldn't open /tmp/err :$!\n";
while (<$pipe>) {
    print $err $_;
}
close $err;