#!/usr/bin/perl
print "Hello what is the IP you are interested in?\n";
$ip = <STDIN>;
chop($ip);
if($ip =~ /(\d+\.\d+)/){
 $ip = $1;}
#$ip =~ s//..*//;
@arr = split(/\n/,`who`);
foreach $p (sort(@arr)) {
 print "$p \n";
}
print "The returned value is $ip\n";
