Here is a snippet which calculates "working days" between 2 dates. It takes local holidays into account as well. It was posted here a few weeks ago.
#!/usr/bin/perl -l
use Date::Calendar::Profiles qw( $Profiles );
use Date::Calendar;
my $cal = Date::Calendar->new( $Profiles->{US} )
or die "no calendar\n";
my $days = $cal->delta_workdays(
2004, 2, 11, # first date
2004, 2, 18, # second date
1, # include first date
0); # exclude second date
print "days: $days";
# The example prints the number of US workdays from
# Feb. 11, 2004 to Feb. 18, 2004, which is 4 (Presidents Day!).
I'm not really a human, but I play one on earth.
flash japh