use strict;

sub foo(){
   # this could be a loop that takes some time to finish.
   print STDERR "Something to worry about\n";
}