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

##</code><code>##

  Signature for test.pl is 
        bd7ce45573c74ca2373ddaf2f87fd7047bd1c6c7
  Signature for test.pl is 
        acdae4cd87ebecf0d2a4c96bec4282bb98adf831