#!/usr/athena/bin/perl
foreach $foo (5..13)
{
	print"Checking dialup $foo\n";
	$_ = `f @e40-008-$foo`;
	(@outa) = split(/[\n]+/, $_);
	$x = 0;
	$loadline =0;
	foreach $word (@outa)
	{
		$x = $loadline;
		(@outb) = split(/[ ]/, $word);
		if ($outb[0] eq "Load")
		{
			$loadline = 1;
		}
		$temp = $x + $loadline;
		if ($temp eq 2)
		{
			print"E40-008-$foo: $word\n";
			$loadline =0;
		}
	}
}