Bear is driving?

<opt>
  <sig>
    <code>
$_=q^use G;$i=M G::Image(FABL0,L0,L0);J l{$p=M G::C;$$_=ord(D-Lfor qw.x 
y.;$p-&gt;addPt(($x+=D,($y+=D)while$#_;AfilledC($p,D}J d{E0,0,L,-HL,H-L,HAB
KFEL,HL,-H0,L,-L,HABL,0,0)}J a{d@_;E0,0,0,L,L,H0,-L,ABL,F}$_=&quot;]]?l!{!]!?
!!?0]?{N&quot;;s#(.)(.)#a&quot;$1&quot;,&quot;$2&quot;;\n#g;/&quot;.+;/;$_.=&quot;d$&amp;&quot;;eval;open Z,&quot;&gt;o.png&quot;
;binmode Z;print ZApng^;for$r(qw.$i-&gt; colorAllocate( Polygon shift) l@_, 
KK); GD 10, I sub 153, 20 new.){$l=chr 65+$c++;s#$l#$r#g}s#\n##g;eval</code>
    <pm>540024</pm>
    <title>Bear is driving?</title>
  </sig>
</opt>