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;

##</code><code>##

my $inp = "abc.xml";
my $out = "new_abc.xml"; 
open( INP, $inp ) or die "$inp: $!" );
open( OUT, $out ) or die "$out: $!" );

my @array = <INP>;  

my $xml1 = qq|<sample>
 		<date>$date</date>
    	<server>cardev.ebookers</server>
    	<process_Id>$dirn</process_Id>
		<ref_key>$r</ref_key>
		</sample>
		</test>|;

$array[$#array] = $xml1; # replace last line

print OUT join "", @array;