#!/usr/bin/perl -w
open(IN, $ARGV[1]) or die "Usage: showline [begin]-[end] [filename]";
($Start, $Stop) = split(/-/, $ARGV[0]);
for($i = 1; $i <= $Stop; $i += 1) {
	$Line = <IN>;
	if($i>=$Start) {
		print $Line
	}
}
