#!/usr/ug/bin/perl
$now= time;
open (FILE, "last_time") || print "Help!"; 
$then=<FILE>;
$length= $now - $then;
close (FILE);
open (FILE, ">/home/benedett/www/data/movies/last_time") || print "Help!";
print FILE "$now";
close (FILE);
$time= $length/60;
if ($time<1) {
  $length=int($length);
  print "Last access $length seconds ago.";
  }
elsif ($time<60) {
  $time=int($time);
  if ($time==1) {
    print "Last access $time minute ago.";
    }
  else {
    print "Last access $time minutes ago.";
    }
  }
elsif ($time<1440) {
  $time=$time/60;
  $time=int($time);
  if ($time==1) {
    print "Last access $time hour ago.";
    }
  else {
  print "Last access $time hours ago.";
   }
  }
else {
  $time=$time/1440;
  $time=int($time);
  print "Last access $time days ago.";
  }
open (FILE, "/home/benedett/www/data/counts");
$a=<FILE>;
chop ($a);
$a++;
$b=<FILE>;
chop ($b);
$b++;
$c=<FILE>;
open (FILE, ">/home/benedett/www/data/counts");
print FILE "$a\n";
print FILE "$b\n";
print FILE "$c";