I'm on the way off mastering GetOpt::Long, so in a few [put timeslice here] I'll change this to a better approach. BTW I'm also looking at POD in 5 minutes so it gonna get full featured system script :-)
Update : Done - process consumed 1% cpu usage. perl has really EASY feature.