package Rowan;
use Sex qw(TheoPetersen Theo_sWife);

package main;
$Rowan=new Rowan;

bless $Rowan;