my ($a) = <STDIN>;