#!/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";