Select Code to Download

package Planet;
use Class::Struct mass => '$', radius => '$';
...
print "Jupiter has mass of " . $Jupiter->mass . " and ";
print "radius of " . $Jupiter->radius . "\n";
print "It's density is " . $Jupiter->density . "\n";