#!/usr/bin/env perl

use String::CRC32;

my $string = lc shift;
#$string =~ s#\/#\\#g;
#$string =~ s#\.\s*\.qb$##g;

#printf "0x\%08x\n", ( crc32( $string ) ^ 0xFFFFFFFF ) ;
printf "0x\%08x\n", crc32( $string ) ;

