#/usr/local/perl use Gorgon; use strict; use warnings; my $walk = Gorgon::Stheno->new(); die "Something bad happened $!" unless ($walk); for (1..8) { $walk->transmute(); print $walk->element(), "\n"; } exit(0);