Lendo de STDIN, o bom caminho

Bom substituto para <STDIN> para evitar advertência perlcrítica: Use <> ou <ARGV> ou um módulo de aviso em vez de <STDIN>:

sub _stdin {
    my $io;
    my $string = q{};

    $io = IO::Handle->new();
    if ( $io->fdopen(fileno(STDIN), 'r') ) {
        $string = $io->getline();
        $io->close();
    }
    chomp $string;
    return $string;
}