http://www.perlmonks.org?node_id=293856

Another 'prettyfu' for your amusment, ladeez an' gennlemen - a mere bagatelle, but fun to write.
@s=map{[ (' ')x 60]}(0..40); ($m,$h )=(localtime) [1,2];t( 20,$_/5,$_%5 ?".":$_/5) for(1..60);t( $_*1.5,$m/5 ,p($_))for(1.. 12);t($_*1.5, $h%12+($m/60) ,p($_+14))for( 0..10);print join("\n", map{ join('',@$_) }@s);sub t{ $s[ 20-$_[0]*cos (.52*$_[1])][30 +$_[0]*1.50 *sin(0.52*$_[1 ])]=$_[2]} sub p{substr( " Just Another Perl ". "Clock",$_[0],1)}
Cheers, Ben.