using ls

#!/usr/bin/perl
#test converting tracker script to perl

use File::Util;
use lib qw(/usr/home/staff/jdavis/bin/usr/local/lib/perl5
/usr/home/staff/jdavis/bin/usr/local/lib/perl5/site_perl);

#get username
print "Enter username:\n";
$user = <STDIN>;
#just for error checking purposes:
print "$user \n";

#not going with a user-defined interval any more.
#get interval
#print "Enter interval in seconds:\n";
#$time = <STDIN>;
#just checking:
#print "$time \n";

#get employee's username
$uid = getlogin;

$f = File::Util->new();
$f -> existent("/usr/home/$user/.history");

if (existent ("/usr/home/$user/.history") = 0) {
  open FILE, "/usr/home/staff/$uid/$user.hist";
  print FILE ".history file does not exist.";
}

#attempted while loop
#while (true) {


#print "Enter 

#stuff to print the date below.
#open(DATE, "date|"); 
#$theDate = `date`; 
#close(DATE);
#print $theDate;