#!/usr/bin/perl

open (DAT,"tim.dat");
$st = <DAT>;
close (DAT);
$st =$st+1;
open (DAT,">tim.dat");
print DAT $st;
close (DAT);