#!/usr/bin/perl
use strict;
use warnings;
die "usage: 512bb.pl <pp size in MB> <\# of MB to grow FS>: $!" unless $ARGV[0];
my ($x, $pp, $mb, @MSG)=(undef, $ARGV[0], $ARGV[1], "512 byte blocks:");
$x = ( $mb <= $pp )
                ? print "@MSG ", 2 * (1024 * $pp)
                : print "@MSG ",(2 * (1024 * $mb)) - (2 * $pp);
print "\n";