use strict;
use Digest::MD5 qw( md5_hex );

my $string1="CA" . "Los Angeles" . "1440x900" . "en-us" . "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)" . "";

my $string2="CA" . "Los Angeles" . "1280x1024" . "en-us" . "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.0.04506)" . "";

print md5_hex( $string1 ), "\n", md5_hex( $string2 ), "\n";
exit 0;
__END__
256645dc3bb33cfd395c51faf4241cfc
c3fbc65ae0b12ee4cd22ccadd3d9a3f7