!/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);