#!/usr/local/bin/perl
#use the sleep command to delay processing for x seconds
$filename = "/tmp/pwdtestfile";
if (-e $filename) {
print "file exists\n";
} else {
print "file does not exist\n";
}

open (TMPFILE, "/tmp/pwdtestfile");
while (<TMPFILE>) {
chomp;
#printf "$_\n";
push (@values,$_);
}

print "file contains @values";