#!/usr/bin/perl -wT
use strict;
for(1..10) {
  print scalar(<>);
}