If you are a good looking man, then I would suggest that you change that to:

#!/usr/bin/perl
use girlfriend;
[download]

and then move on. ;-)

<disclaimer>I am trying to bring up what I see as not fully thought out actions.</disclaimer>
Which, more times than not, results in the situation posed in sock's reply (by one, or both, parties involved).

package Relationship;
        require SignificantOther;
        BEGIN { ('happy', 'cautious'); }
        DESTROY { ('hopes' => 'lost')};
-1;
[download]

Just for you
Guns don't kill people, ninjas do.

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

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

#!/usr/bin/perl

my $girlfriend == our $girlfriend and break;
[download]