Select Code to Download

sub concat 
{
...

  return (join "\t", @stringarray); 
}

$concatstring = &concat ($handle, $hostname, $maintenance, $location, 
+$buiscat);