GetSpeed

A terminal’s input and output speeds in baud.

Synopsis

my ($in, $out) = GetSpeed();          # e.g. (38400, 38400)

What you get back

Two numbers, decimal: a speed outside the table of 50 to 115200 baud comes back as the system’s own code for it. A handle that is not a terminal gives (0, 0).