perl output to STDOUT