my $rootID = getpwnam("root");

$< = $rootID;
$> = $<;