substitution bei systemaufruf

[alpha-nbg]

Hallo,

ist es möglich in einem perlscript das resultat eines systemaufrufes einer perlvariablen zuzuweisen (substituiren). z.B. :

$whoami=system("whoami");

weist ja den rückgabewert des systemaufrufes (also meistens 0) der Variablen $whoami zu. Ich möchte aber das der aktuelle username in der Variablen gespeichert wird.
Hintergrund : ich möchte im script abfragen ob es mit root permissions gestartet wird.

mfg
Armin

[fork]

Backquotes:
$bla=` ls`;

oder den Prozess als Eingabedatei öffnen:
open(PROC,"ls|");
@LS=<PROC>;
close(PROC);