#!/usr/bin/perl -w

use Fraction;

$f1 = Fraction->new();
$f2 = Fraction->new();

$f1->set(5, 3);
$f2->set(2,5);
print "The fraction " . $f1->toString() . " + " . $f2->toString();
$f1->add($f2);
print " is " . $f1->toString() . "\n";
