#!/usr/bin/perl

for ( $i=1; $i< 800; $i*=5 )
{
  $val= $i*58;
  print "\n\nMessage length $val...\n";
  `head -n $i test > test.tmp `;
  $list= `java GenSig test.tmp`;
  print $list;
}