#!/usr/bin/perl -w

use Ring;
use GirlFriend;
use strict;

my $gf   = GirlFriend->new();
my $ring = Ring->new();

print "I love my ", ref( $gf ), " ", $gf->{name}, "...\n";
print "So I gave her this ", $ring->{ring}, " ", ref( $ring ), "\n";
print "She's the best...\n";
print "    She said yes...\n";
print "        She makes me want to sing\n\n";
print "\t\t\t-Kel  :)\n";