Not to say it is too difficult to decipher with the DATA section, but, i liked the recurring _:, so thought it may be appricated.

#!/usr/bin/perl

_:$|=$$;$perl=*$;*b=*a;$s=sub{reverse(@_)};$a=(split(//,${$^X}))[0];
_:for($s->(1..length($$))) {print $a;sleep(fileno(stdout));$c=_};
_:while(<DATA>) {$;=ord;$;++;print chr($;)};
_:for($s->(1..length($$))) {print $b;sleep($|)};

__END__
O
d
q
k
L
n
m
j
r
-
n
q
f
[download]

---

remeber the immortal word's of Socrates who said, "I drank what ?"