use Math::Units::PhysicalValue qw(PV);

my $weight = PV "170 lb";
my $mass   = $weight + "0 kg";

print "My mass on earth at sea level is $mass.\n";