diff --git a/sbin/gentoo-upgrade.sh b/sbin/gentoo-upgrade.sh
index 21e4865..4dbf4bc 100755
--- a/sbin/gentoo-upgrade.sh
+++ b/sbin/gentoo-upgrade.sh
@@ -492,7 +492,7 @@ if [ $STAGE_CNT -eq $STAGE ]; then
 
 	if [ -f /etc/portage/need_upgrade_perl ]; then
 		echo "Running perl-cleaner..."
-		$NICE_CMD perl-cleaner --all
+		$NICE_CMD perl-cleaner --reallyall
 		[ 0 != $? ] && echo "Stage $STAGE: perl-cleaner failed ;-( =======" && exit $STAGE
 		rm /etc/portage/need_upgrade_perl
 		[ 0 != $? ] && echo "Stage $STAGE: cann't remove /etc/portage/need_upgrade_perl ;-( =======" && exit $STAGE