#!/bin/perl
open(F,"log");
while(<F>){
      $tot=$_;
}
close(F);
$tot = values($tot);
print $tot;
