sub generate_signature
  {
     my $fh = shift;
     my $digest = Digest::SHA1->new();
     $digest->addfile($fh);
     return $digest->sha1_hex();
  }