perl job viewer