#!/usr/athena/bin/perl

use strict;

die "usage: $0 FILE [time]\n" if ($#ARGV < 0);

my $path = shift;
my $time = int (shift) || 4;

my $size1 = (split (/\s+/, `du -s $path`))[0];
sleep ($time / 2);
my $size2 = (split (/\s+/, `du -s $path`))[0];
sleep ($time / 2);
my $size3 = (split (/\s+/, `du -s $path`))[0];

my $r1 = ($size2 - $size1) / ($time / 2);
my $r2 = ($size3 - $size2) / ($time / 2);

print "$path is $size3 kb, $r1 $r2 kb/s\n";