perl -MCompress::Bzip2 -e "
print Compress::Bzip2::compress('all the numbers from 0000 to 9999')"