#!perl

$nmb = shift;
$file = shift;

open (FILE, "<$file") or die $!;
@file = <FILE>;
close FILE;

print "\n";
foreach (@file) {
	if (abs($nmb - ++$i) <= 5) {
		print $i, ":\t$_";
	}
}
print "\n";