Select Code to Download

use strict;
use warnings;

...
while (<>) {
    do_something($_);
}

sub cin_read {
    my $inchar = getc;
...
    }
    return $result;
}