my $s1 = <STDIN>;

##</code><code>##

while ( <$filehandle> ) {
    # do something
}

##</code><code>##

while ( <STDIN> ) {
    # do something
}