#!/usr/bin/perl  
sub tab { 
  return q{ } x 4; 
}

my $host=shift(@ARGV);


foreach my $s (
  q(servicestatus {),
  tab . 'host_name='.$host,
  tab . 'plugin_output='./*./,
  tab . q(}) )
{
  print $s;
}