my $file = "abc.xml";		
open INFO, "$file";

my $count=0;
$count++ while <INFO>;
print Dumper ($count);
close INFO;
$count=$count-1;
$file = "abc.xml";		
open INFO, "$file";
my @a=<INFO>;
splice (@a, $count,1);
#print Dumper (\@a);
close INFO;
$file = "abc.xml";		
open (INFO, ">$file") or die "cannot open file $@";
print INFO @a;

close INFO;
$file = "abc.xml";		
open INFO, ">>$file";
print INFO $xml1;

close INFO;