Help for this page
my $s1 = <STDIN>;
while ( <$filehandle> ) { # do something }
while ( <STDIN> ) { # do something }