If you don't want to mess with a separate file, use:

perl myprogram.pl | more

Update: Sorry. The above doesn't work as per blakem (below). Could have sworn I used it before. BTW, it doesn't work for similar reasons under Unix either.

@a=split??,'just lose the ego and get involved!';
for(split??,'afqtw{|~'){print $a[ord($_)-97]}