#!/usr/local/bin/perl require "sockets.pl"; $service = "finger"; chop ($hostname = `/bin/hostname`); $input = shift (@ARGV); ($username, $remote_host) = split (/@/, $input, 2); unless ($remote_host) { $remote_host = $hostname; } &open_connection (FINGER, $remote_host, $service) || die "Cannot open connection to: $remote_host", "\n"; print FINGER $username, "\n"; while () { print; } &close_connection (FINGER); exit (0);