#!/usr/bin/perl

my $result;
open(WHOAMI," whoami |") or die "Error 1";
while (<WHOAMI>) {
  $result = $_;
}
print "The result is $result\n";