use strict;
use File::Basename;

##********  Variables  ********##
my $filepath = 'c:\a\netware';
my $dump = 'Netware_hw.txt';
my $arc = 'ARCSERVE.NLM'; 
my $serverfile = 'dallas.txt';


	open (SERVER, "<$serverfile") or die "Can't open the file\n";
	open (OUTPUT, ">>$filepath\\$dump");

	my @lines= <SERVER>;
	my ($s, $b);
	foreach my $line (@lines)
	{
	  if ($line =~ /^\n$/) {
	    $b++;
	    last if (($b == 2) && $s);
	  } else {
	    $b = 0;
  }

  if ($line =~ /$arc/) {
    $s = 'true';
  }

  if ($s) {
    print OUTPUT $line;
  }

}



close (OUTPUT);
close (SERVER);

===========
OUTPUT FILE
===========

ARCSERVE.NLM
  Version:			1
  Date:				10/22/2000
  ID:				000
  Parent ID:			x
  Type:				UNKNOWN
  Description:			ARCserve
  Flags:			

  
ASDB.NLM
  Version:			2
  Date:				12/8/2000


ASPIBD.NLM
  Version:			4
  Date:				12/15/2000
  ID:				0