Select Code to Download

float 
Point_2D::x()
...
    RETVAL = new Point_2D();
    OUTPUT:
    RETVAL

#!/usr/sbin/perl -w

...
print "retrieving value\n";
$output = Point_2D::x($pt);
print "output = ",$output;