#!/usr/local/bin/perl

open(MYFILE, $ARGV[0]);

while($_ = <MYFILE>) 
{
	print $_;

	for ( $i=0; $i<$ARGV[1]-1; $i++)
	{
		$_ = <MYFILE>;
	}
}