use POSIX qw/isatty/;
something() if !isatty($handle);