#!/usr/athena/bin/perl
foreach $foo (5..11,13)
{
	print"Checking dialup $foo\n";
	$_ = `f @e40-008-$foo`;
	(@outa) = split(/[\n]+/, $_);
	foreach $word (@outa)
	{
		(@outb) = split(/[ ]+/, $word);
		if ($outb[0] eq $ARGV[0])
		{
			print"$ARGV[0] is logged in on e40-008-$foo\n";
		}
	}
}