Select Code to Download

#!/usr/bin/perl
use Tk;
...
$mw->repeat(60,[sub{$text=~s/(.)(.*)/$2$1/;}]);

MainLoop;

#!/usr/bin/perl
use warnings;
...
the Federation.

Our story begins.............