Select Code to Download

#!/usr/bin/perl
use strict;
...

my $usage = $share->size * $share->num_segments;
print "Usage: $usage\n";

$ ./971163.pl
Size: 5000
Segments: 207
Usage: 1035000