dpkg/scripts/822-date.pl

#!/usr/bin/perl --

use strict;
use warnings;

use Dpkg;
use Dpkg::Gettext;

textdomain("dpkg-dev");

push(@INC, $dpkglibdir);
require 'controllib.pl';

@ARGV && die _g("Usage: 822-date")."\n";

warning(_g("This program is deprecated. Please use 'date -R' instead."));

print `date -R`;