my @args = ($program, $username, $user);
    system(@args) == 0
	 or die "system @args failed: $?"