#!/usr/local/bin/perl -w
# Author: Shraddha Kulkarni
# File trimmer
# This tool quickly removes first n lines from a file. You should find this tool useful for reducing the size of your log files.
#

use strict;
use File::Copy;

if(@ARGV != 2){
print "Usage \n\ttrim number_of_lines filename\n";
}

open FH,$ARGV[0];
open FW,">".$ARGV[0].".tmp";
my $n=0;
	while(<FH>){
	$n++;
	if($n > $ARGV[1]){ print FW $_; }
	}

close FW;
close FH;

move($ARGV[0].".tmp",$ARGV[0]);