use strict;
use Inline Ruby => <<'RUBY';
    class Person
        attr_accessor :first, :middle, :last
        def initialize(first,middle,last)
            @first  = first
            @middle = middle
            @last   = last
        end
        
        def full_name
            "#{@first} #{@middle} #{@last}"
        end
        
        def marry(other)
            "#{@first} married " + other.first
        end
    end
RUBY

my $john = Person->new(qw(John F Jones));
my $sue  = Person->new(qw(Suzy P Edwards));

print $john->full_name()."\n";
print $sue->full_name()."\n";
print $john->marry($sue)."\n";