#!/usr/bin/perl
use Polyglot;
package Polyglot;
use vars qw( $polyglot );
$polyglot = Polyglot->new();
$polyglot->run;
#!/usr/bin/perl
use Polyglot;
package Polyglot;
use vars qw( $polyglot );
$polyglot = Polyglot->new();
$polyglot->run;