Select Code to Download

#!/usr/bin/perl
use strict;

...
if ($count == 0) {print "OK:"} else {print "\nWarning: file is older t
+han $hours hours\n"};     
exit 0 if $count == 0;
exit 1;

D:\Perl-Scripts>dirlist.pl

...
File Count - 2 -

Warning: filelist is older than 1 hours

D:\Perl-Scripts>dirlist.pl
Global symbol "$count" requires explicit package name at D:\Perl-Scrip
+ts\dirlist.pl line 19.
...
Global symbol "$count" requires explicit package name at D:\Perl-Scrip
+ts\dirlist.pl line 26.
Global symbol "$count" requires explicit package name at D:\Perl-Scrip
+ts\dirlist.pl line 27.
Execution of D:\Perl-Scripts\dirlist.pl aborted due to compilation err
+ors.