#!/usr/bin/perl
print "Relationship \n";
require girlfriend if (dump ex) ;

ex:
last; time; $i->speak($you);