Ghettocode

#!/usr/bin/perl
#
# filerops: Gather statistics on NetApp filers
 
use strict;
use warnings;
use File::Basename;
use Getopt::Long;
 
sub usage
{
	my $script = basename($0);
	print <<USAGE
 
	$script -f <filer> -i <minutes> <-n|-s> [-o]
 
                -f <filer>  filer to gather stats from
                -h          this elite help menu, hack the planet
		-i <min>    interval in minutes before gathering data
                -n          gather nfsops statistics
                            netapp: nfsstat