use strict;
use warnings;

open my $fh,'>>','logname' or die "Could not open logname";
while (1) {
  my $content = $rh->cmd(...);
  if (defined $content) {
    print $fh $content
  } else {
    print 'Nothing to be done!'
  }
  sleep 1;
}
close $fh;