【perl】コマンドラインから、STDINの入力とは別方法での入力を使いたいとき

my $output = "";
while (my $input = ) {
$output .= $input;
}
close STDIN;
open TTY, '<', '/dev/tty';
my $tty = close TTY;

$inputと$ttyとで入力内容をわけられるぜ!

(Q)え、どんな時使うの?

(A)伝えたい内容もコマンドラインから入れたいけど、別途 user_name も入れたい時とか