Select Code to Download

use strict;
use warnings;
...
open FH, ">o.png";
binmode FH;
print FH $i->png

($f,$s,$t,$l)=@ARGV;open(FH,$f);while(<FH>){chop;s#^\s?(.*)\s?#$1# if!
+$t
;last if/^exit;$/|/^##$/;$b=$a.=$_ if!(/^#/|/#-$/)}$l||=72;print++$c==
+5&
!$s?"\e[31m$&$/":$&.$/while$b=~s#^.{$l}##;printf"%s\n%s %s\n%s %s".$/,
+$s
?$b:(($c>3?"\e[31m":"")."$b\e[m\n",$t=length($b),$l-$t,$c+1,$b=length$
+a)

#!/usr/bin/perl
use Firework;
...
$display->add_wheel(60,22,8);

$display->start_display;

package Firework;
use Firework::Rockets;
...
}

1;

package Firework::Rockets;
use Firework;
...
}

1;

package Firework::Catherine;
use Firework;
...
}

1;

@m=((31,(15)x8)x8,(31)x9);$m[$c]|=16,!(@a=grep/.$/&!(16+$|*$&&$m[$c+$`
+])
,-18,11,94,-92)?$c=pop@p:${$a[rand@a]=~/.$/;push@p,$c;$m[$c]&=~8/$&;$m
+[$
c+=$`]&=15-$&;++$u-64||map$_&=15,@m,$c=$|=1},$|&&9x2e7,print"\ec",(_)x
+17
,map$_%9?($_-$c?$m[$_]&2?_:$":o).($m[$_]&8?I:_):$/.I,0..71until$c>70&$
+|

$_="C,9++xS5!+5!+xS0%/x+++5!S+x755!S+x";s#[^x]#-21+ord$&#eg;s#.#00$&#g
+;;
s#0x#40x#g;$a='map{$d=0;s#...#($d++%2?$":1)x$&#eg}@z=split/x/,"072x'.$
+_.
q`051";$a="\$a=q\x60$a\x60;".'$a=~s#\s##g;eval$a';{$_=$a;($z=join$/,ma
+p{
s#.##;$_.=$&}@z)=~s#1#s/.//;$&#eg;print"\ec$z$/";9x1e7;redo}`;eval$a