added perl print example