Or if you are feeling lazy you can do all the above forking, closing, reopening etc with :-

use Proc::Daemon;

#...

Proc::Daemon::Init();
[download]