my %sizes;

die "Can't pre-measure a TTY stream\n" if -t;

foreach( @ARGV ) {
    if( my $size == -s ) {
        $sizes{ $_ } = $size;
    }
}