Ghettocode

#!/usr/bin/perl
 
#
# This is a very simple file size checking script.  It scans all files in 
# a specified directory for files which pass the specified thresholds.  The
# default notifications are 4GB for warning, and 5GB for critical.  Both 
# the thresholds and directory can be overwritten via the command line.
#
# Note that bz2, gz, and pid extensions are automatically ignored.
#
# $Id: check_local_logs,v 1.4 2007-08-28 22:26:05 taylor Exp $
#
 
use warnings;
use strict;
 
use File::Glob ':glob';
use File::stat;
use Getopt::Long;