perl -M'Data::Dimensions qw(:extended &units)' -E'say add( "1.2G", "500M"); \ sub add \ { my $sum= units( { byte => 0 }); \ foreach (@_) { $sum += $_ } \ return $sum; \ }\ '