perl -le 'chomp(@_=`perl -h`);($u)=grep/^U/,@_;($r)=grep/^R/,@_;@_=grep/^\s+\-/,@_;$s=$_[int(rand(scalar@_))];for(1..2){system"clear";print"\033\[1m$u\033\[0m";print/1/?"\033[5m":"",$s,/1/?"\033[0m":"";print"\033\[1m$r\033\[0m";sleep(3)if/1/}'