#!/usr/bin/perl -w

use strict;
use POSIX qw(setsid);
#$| = 1;

sub daemonize {
   my $pid;
   chdir '/'                 or die "Can't chdir to /: $!";
   open STDIN, '/dev/null'   or die "Can't read /dev/null: $!";
   open STDOUT, "/dev/null" or die "Can't write to /dev/null: $!";
   #open STDERR, ">>$logfile" or die "Can't write to $logfile: $!";
   defined($pid = fork)      or die "Can't fork: $!";
   if ( $pid ) {
      exit;
   }
   setsid                    or die "Can't start a new session: $!";
   open STDERR, '>&STDOUT'   or die "Can't dup stdout: $!\n";
   umask 0;
}

daemonize();

my @first;
my $i = 0;
for (1...75000000) {
   $first[$i] = 1;
   $i++;
}

sleep 300;