#!/usr/bin/perl -w

               use strict;
           my ($pi,$r,$str)=(
         atan2(1,1)*4,21,"just".
        " another perl hacker ");
       my $s=$r;$_[$_]=" "x(4*$r+1
      )."\n" for(0..(2*$r+1));while
      ($s-=.5){next if($s<int(.5*$r
      ));foreach(0..359){my($x,$y)=
      (int(.5+(2*$r)+(2*$s*cos(($pi
      /180)*$_))),int(.5+$r+($s*sin
       (($pi/180) *$_)))); substr(
        $_[$y],$x,1)=substr($str,
          ($x%length($str)),1);
              }} print"@_";
[download]