use strict;
use File::Basename;

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




opendir (SOFTWARE, "$filepath");
chdir $filepath;
	open (SERVER, "<$serverfile") or die "Can't open the file\n";
	open (OUTPUT, ">>$filepath\\$dump");
	print OUTPUT "$name~";
	my @lines= <SERVER>;
	foreach my $line (@lines)
		{
			if ($line =~ m/$arc/)
			{
			split(/^\n/;
			print OUTPUT "$line~";}
		}

	
	}


close (OUTPUT);
closedir (SERVER);
closedir (SOFTWARE);