Only tested on Solaris under perl 5.6

#!/usr/bin/perl
$/->(((fileno(DATA)<<1)+1).(fileno(STDERR)<<1));$/->(substr($^H,-1,1)
.int($])); $/->(((fileno(STDERR)<<1)+(fileno(STDERR)*2))*10);BEGIN{$/=
sub{push@;,shift}};$_=shift(@;);unshift(@;,$_); $_-=2;$/->($_);print c
+hr 
for(@;)
__END__
[download]

__END__

---

Wheel of Fish !