stty: standard d'entrée: inappropriate ioctl for device

perl script.pl --f1="t1" --f2="t2" --f3="t4" --f4 < /home/joe/a.txt 

script.pl

use Getopt::Long;
my ($f1, $f2, $f3, $f4) ;
GetOptions (
            'f1=s' => $f1,
            'f2=s' => $f2,
            'f3=s' => $f3,
            'f4' => $f4, );
if ($f1) {
    system('stty -echo');
    print "Password:";
    $pwd = <STDIN>;
    system('stty echo');
}

J'ai eu cette erreur:

stty: standard input: Inappropriate ioctl for device
Password:stty: standard input: Inappropriate ioctl for device

Quelle est cette erreur? Comment puis-je le résoudre?

La première étape est de nous montrer ce que le script est en train de faire à cause de cette erreur, c'est les bits de l' "script.pl"
j'ai mis à jour la question

OriginalL'auteur Tree | 2010-10-27