TOP SECRET BOMB CALCULATION

use Data::Dimensions qw(extended &units);
my $yield  = units({joule => 1});
my $mass   = units({ kg   => 1});
my $c      = units({ m    => 1, s => -1});
my $eff    = units({}); # no units

set $c    = 299792458;
 
set $mass = 0.01;
 
set $eff =  0.01;
 
set $yield = $eff * $mass * $c **3;
 
print "Yield is: $yield (Joule)\n";