extproc perl -S  

# Rough perl program to calculate days between dates

use HTTP::Date qw(str2time);

$secondsADay = 60*60*24;

$days= abs(str2time($ARGV[1])- str2time($ARGV[0]))/$secondsADay-1;

print "$days Days\n";


exit;

# extproc is an OS/2 trick to get the .pl to execute.
# in UNIX, you need a line like #!/usr/bin/perl...