#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use App::ProcIops;
App::ProcIops->new->run( @ARGV );
exit;

__END__

=head1 NAME

proc-iops - Show process I/O operations

=head1 VERSION

version 0.002

=head1 SYNOPSIS

  proc-iops <pid>

      --help

=head1 DESCRIPTION

Summarize a process's I/O operations in real time.