#!/usr/bin/perl

for ( $i=1; $i< 800; $i*=5 )
{
  $val= $i*54;
  print `head -c $val test.dig > test.tmp`;
  print `java Digest test.tmp`;
}