#!/usr/bin/perl

use Proc::Daemon          qw( );
use File::Basename        qw( dirname );
use File::Spec::Functions qw( rel2abs );

my $homedir;
BEGIN { $homedir = dirname(rel2abs($0)); }

{
   Proc::Daemon::Init;
   chdir($homedir);
   open STDERR, '>', 'stderr.txt';
   system(q{perl -e'print STDERR "mwuhahahaha\n"'});
}