#!/usr/bin/perl
$date = "/bin/date";
if ( `$date --version` !~ /sh-utils/ ) {
  print "failed: $date must be from the GNU sh-utils package\n";
  exit 1;
}
if ( $#ARGV > -1 ) {
  $argv = join(' ',@ARGV);
  print `$date -d "$argv" +%s`;
} else {
  print "usage: date2stamp at_style_time_specification\n";
  exit 1;
}