#! /usr/local/bin/perl

use Oraperl;
use DBI;
use FileHandle;
use rf;
use IO::Socket;
use IO::Handle;;
use POSIX qw(setsid);

die "syntax: $0 port" if 1 > @ARGV;
$port=$ARGV[0];
open STDIN, '>/dev/null'   or die "Can't read /dev/null: $!";
print "Step 1\n";
open STDOUT, '>','/dev/null' or die "Can't write to $prout: $!";
print "Step 2\n";
open STDERR, '>/dev/null' or die "Can't write to $prerr: $!";
...