#!/usr/bin/perl
$_='
    $q="\47";
    while($; = $z+ =.5){

        %c = $r = 0;
        $/="";
        while(20+$z>($;+=.05)){
            $c
              { int $_ + 26 + 2 * ($r += .02) * sin $; }
              { 1 - $_ + 10 + int $r * cos $; }
            = 1for(0..1)
        }

        $t = reverse;
        $/ .= `clear` . "#!/usr/bin/perl\n\$_=$q\n";
        for $y (1..20){
            $c{$_}{$y}
                ? $/  .= chop $t 
                : ($/ .= "\40")for(0..53);
            $/.="\n"
        }

        print "$/$q;s;" .chr(92). "s;;g;eval\n"
    }
   ';
s;\s;;g;eval
[download]