$ who am i
  idsfa    pts/11      Apr 20 15:09     (10.0.0.1)
  $ sudo who am i
  idsfa    pts/11      Apr 20 15:09     (10.0.0.1)

##</code><code>##

  use User::Utmp qw(:constants :utmpx);
  use POSIX qw(ttyname);

  my $tty = ttyname();
  my @utmp = getutx();
  my $ip = "Rogue Hacker";
  foreach $entry (@utmp)
  {
      next if ($entry->{ut_type} != USER_PROCESS);
      next if ($entry->{ut_line} ne $tty);
      $ip = $entry->{ut_host};
      last;
  }