#! /usr/bin/perl -w
use strict;
use Perl::Visualize qw/etch/;
etch("world.gif", "helloworld.gif", 'print "Hello Spinning World\n"' );