#!/usr/bin/perl -w

my @times;
my $timeDisplay;
my $timeMinute = `date '+%M'`;
my $timeHour = `date '+%H'`;

       $timeDisplay = join (":", "$timeHour", "$timeMinute");

        open(IN1, '<', 'fileTimes'); #fills @times with data in fileTimes 
          while(my $line = <IN1>) {
                    chomp $line;
                    unshift(@times, $line);
                               }
        close(IN1);

unshift(@times, $timeDisplay); #puts in new time to queue

        open(FILE, ">fileTimes");
          foreach my $i (@times) { #prints back into fileTimes to update
                print FILE "$i\n";
                                 }
         close(FILE);