I'm using the Amazon::S3 module and trying to list the contents ("keys") of the buckets I have access to. Most of the buckets return quickly, but there are a few that have a lot of entries and take longer. I'd like to be able to issue the call to S3 and, display some kind of status if it takes longer than x seconds to return... 
 
     $s3 = Amazon::S3->new({aws_access_key_id=> $access_id,aws_secret_
+access_key => $secret_key,retry=> 1}); 
     $bucket = $s3->bucket($b) or die $s3->err . ": " . $s3->errstr; 
     $response = $bucket->list_all or die $s3->err . ": " . $s3->errst
+r; 
     if (@{ $response->{keys} }) { 
          # show the contents 
     }

[download]
Is there a way to start "$bucket->list_all" and then do "something else" while waiting for it to return? I've tried various permutations of if/while loops, using "eval {$response..}" but haven't been able to hit on the correct way. Ideally, I'd prefer not installing another module (trying to keep it light) but can if needed. Would fork() be the way to go? I know the topic of spinners/status bars has been brought up many times, and I generally know how to do that - I just can't figure out who to loop around this call to a module...

In reply to Status of long running module call by dayton

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.