use strict;
use LWP::UserAgent;
use Digest::SHA1;

my $srcfile = "c:/...../cab/WBCust.CAB";
my $tempdl  = "temp.tmp";

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://127.0.0.1/...../cab/WBCust.CAB');
my $r = $ua->request($req)->content;

open F, ">$tempdl" or die "$! $tempdl";
binmode F;
print F $r;
close F;

computeSHA( $srcfile );
computeSHA( $tempdl );
unlink $tempdl;
exit;

sub computeSHA() {
	my ($srcfile) = @_;
	my $sh_pre = Digest::SHA1->new;
	
	open S1, $srcfile or die "$! $srcfile";
	$sh_pre->addfile(*S1);
	close S1;
	
	print "$srcfile:\n " . $sh_pre->hexdigest . "\n";
}


##</code><code>##

c:/...../cab/WBCust.CAB:
 3816f34e861b6268c716b9f06091dee0d580f2cb
temp.tmp:
 3816f34e861b6268c716b9f06091dee0d580f2cb