perl theprogram | less