zergin

#!/usr/bin/perl
#
# Brad's el-ghetto do-our-storage-stacks-lie?-script
#

sub usage {
    die <<'END';
Usage: diskchecker.pl -s <server[:port]> verify <file> [name]
       diskchecker.pl -s <server[:port]> create <file> <size_in_MB> [name]
       diskchecker.pl -l [port]