use Math::Bigint; my $KB = Math::BigInt->new(1024); my $MB = $KB * $KB; my $GB = $MB * $KB; my $required = shift(@ARGV) * $GB; my $CDsize = shift(@ARGV) * $MB; print +($required + $CDsize - 1) / $CDsize;