add VisitCommand to PerlSourceGen