#------------メインプログラム----------------
#!/usr/local/bin/perl
use strict;
use warnings;
use Point;
use Point3D;
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "\n";
print "
\n";
print "CGIのテスト\n";
print "\n";
print "\n";
print "------------------
\n";
# Point
my $point = Point->new(x=>2, y=>3);
print("[".$point->x.",".$point->y."]\n
");
$point->clear();
print("[".$point->x.",".$point->y."]\n
");
$point->y(4);
print("[".$point->x.",".$point->y."]\n
");
# Point3D
my $point3 = Point3D->new(x=>2, y=>3, z=> 4);
print("[".$point3->x.",".$point3->y.",".$point3->z."]\n
");
$point3->clear();
print("[".$point3->x.",".$point3->y.",".$point3->z."]\n
");
print "------------------
\n";
print "\n";
print "\n";