while(my $char = getc){
    print "$char\n";
}
__END__