Select Code to Download

#!/usr/bin/perl
use Math::RPN;$|=1;
1 while($_="@ARGV"||<>)&&!((@s=rpn@s,split)&&$s[-1]=~/^q/i||print("@s 
+")&&@ARGV&&print($/))