use Planetoid qw( :QUAKES );

$earth = Planetoid->new("Milky Way", "Sol", 3);
$earth->quakes(Q_OFF);