$bucket = $s3->bucket($b) or die $s3->err . ": " . $s3->errstr;
    print "\nGetting contents of S3 bucket: [$b] \n\tThis might take a while...\n\n";

    while ( ! @{ $response->{keys} } ){
        $response = $bucket->list_all or die $s3->err . ": " . $s3->errstr;
           #please wait status 
    }

   # display bucket contents