use whirly;
$waiting = new whirly;
until (file_downloaded()) {
  print $waiting;
}