TOP SECRET BOMB CALCULATION

 #
my $yield;
my $mass;
my $c;
 #

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