Select Code to Download

#
#  Language::Logo.pm
...

=cut

#!/usr/bin/perl -w
#
...
use warnings;
use Language::Logo;
my $lo = new Logo()->interact();

#!/usr/bin/perl -w
#
...
        $size += $incr;
    }
}

#!/usr/bin/perl -w
#
...
use warnings;

system("spiral.pl -t -x -u 1 -n 10 -s 100 -w 8 -p 200,300 -i -.01 -a 8
+5 95")

#!/usr/bin/perl -w
#
...
} else {
    system("flowers.pl -h : 324.4");
}

#!/usr/bin/perl -w
#
...

# Main program
system("spiral.pl $args $angle");

#!/usr/bin/perl -w
#
...
    $lo->command("fd $dist");
    $lo->command("rt random $minang $maxang");
}