sub execute_cmd {
  my $cmd = shift;
  print "Details: $cmd\n";
  
  my @ret = `$cmd`;
  warn "#### Error: $cmd cannot be executed!" if not @ret;
  return @ret;
}