my $num = <STDIN>;