Препятствовать тому, чтобы GRUB обнаружился по умолчанию?

open ("RCV_MAIL", ">>/home/icasimpan/mail_received.txt") or die $!;
while(<STDIN>){
   print RCV_MAIL;
}

является неправильным.

Если бы Вы пытаетесь распечатать строки от STDIN до mail_received.txt, Вам было бы нужно:

open (RCV_MAIL, ">>/home/icasimpan/mail_received.txt") or die $!;
while (<STDIN>) {
   print RCV_MAIL $_;
}

потому что print с одним аргументом берет аргумент, чтобы означать список печатать, не дескриптор файла для печати его к.

$ perldoc -f print
print FILEHANDLE LIST
print LIST
...

Кроме того, никакая потребность в кавычках вокруг дескриптора файла называют в open. Просто используйте RCV_MAIL.