use strict;
use warnings;

my @lines = `finger dialup\@finch.mit.edu`;
for my $line (@lines) {
	print $line;
	my $name = (split /\s+/, $line)[3];
	my @slines = `stella $name`;
	for (@slines) {
		if (/Machine/ || /Alias/) {
			print "> $_";
		}
	}
	print "\n";
}