my $line = <>;
  chomp $line;
  my $num = int $line;