#!/usr/bin/perl

use strict;
use warnings;
use PointX;


my $point = PointX->new({x=>3, y=>20});

print "The x cord is ".$point->get_x()."\n";
print "The y cord is ".$point->get_y()."\n";

$point->set_x(10);

print "The x cord is ".$point->get_x()."\n";
print "The y cord is ".$point->get_y()."\n";