perl -le 'chomp(@_=`perl -h`);($u)=grep/^U/,@_;($r)=grep/^R/,@_;@_=gre
+p/^\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/}'
[download]