Paav, it was a good question and I'm glad to see that people took the time to respond to it. For future reference, you may wish to be aware that you can format your code by wrapping it in <CODE></CODE> tags.

!/usr/local/bin/perl 
print "Input file name: "; 
chomp ($infilename = <STDIN>); 
use strict; 
while ( defined($currentLine = <STDIN>) ) { 
    if ($currentLine =~ /^ $name:/) { 
        print $currentLine; 
    } 
} 
close(IN);
close(OUT);
[download]

Such formatting makes code easier to read and guarantees a quicker response. It also guarantees that elements wrapped in <> won't be interpreted as HTML and ignored (which happened to the <STDIN> in your orginal post). For more information, check out the Site How To.

Welcome to the Monastery!

Cheers, Curtis