#!/usr/bin/perl

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