Help with reading a specific portion of a file using PERL

Shell Programming and Scripting
1

Hello,

I am trying to read from a file using PERL:confused, however i need to read specific portions of the file

the file goes like this

<Name 1 
Hono

<Name 2
Jack

and so on

anyways i need to be able to write a program that ONLY opens the lines beginning with "<"? so it would read

<Name 1
<Name 2

i tried this

$file= names.txt;
open (HAN, "names.txt");
while ($line = <HAN>);
{
print $line;

if ($line = "<");
{
print $line;
}

{

this is not working, what can i do?

thank you

2 
#!/usr/local/bin/perl
$file = names.txt;
open(HAN,"<$file");
while(<HAN>)
{
        chomp;
        if ($_ =~ /^<Name/)
        {
                print $_ . "\n";
        }
}
3 
perl -nle 'print if /^<Name/' names.txt