#!/usr/bin/perl -w
#
# $Id: date2epoch,v 1.3 2003/08/01 02:10:54 jmates Exp $
#
# The author disclaims all copyrights and releases this script into the
# public domain.
#
# Given a date, will attempt to return the epoch time for that date.

use Date::Manip;
use File::Basename qw(basename);
my $basename = basename $0;

die "usage: $basename date\n" unless @ARGV;

print UnixDate(ParseDate($ARGV[0]), "%s"), "\n";

=pod PREREQUISITES

Date::Manip

=pod OSNAMES

any

=pod SCRIPT CATEGORIES

Utilities

=cut