Primeiro programa

Carai!!! Fiz o meu primeiro programa que funciona!!! (Thanx Kenji ;-) )


$file = $ARGV[0];
$search = $ARGV[1];

open(IN,$file);

while($line = IN){

if($line =~ "$ARGV[1]"){
print $line;
}

}

close(IN);


Quem adivinha o que ele faz?