use strict; use warnings; use HotBits; my $x= new HotBits::; my $bits= $x->request (16); # parameter is bytes to fetch, up to 2048. print length($bits)," bytes: "; print unpack("H*", $bits), "\n";