#!/usr/bin/perl

use strict;
use warnings;

my $name = shift or die "No name given\n";

while (<>) {
  if (/name: $name/) {
    print;
    print scalar <>;
  }
}