#!/usr/bin/perl
$time = localtime(time);
@rad = split(/ /,$time);
@time = split(/:/,@rad[3]);
$rad = @time[2]*7;
open(F,"rad.dat");
while(<F>){
	print $rad = eval($rad) + $_;
}
close(F);
open(F,">rad.dat");
print F $rad;
close(F);
