#!/usr/bin/perl
( $wd, $mo, $md, $ti, $zone, $year) = split(/ +/, 'date', 6);
$now = time;
$yesterday = $now - (24*60*60);
$now = localtime;

$local_sec = (localtime($yesterday))[0];
$local_nim = (localtime($yesterday))[1];
$local_hr = (localtime($yesterday))[2];
$local_mdy = (localtime($yesterday))[3];
$local_mon = (Jan, Feb, Mar, Apr, May, Jun,
Jul, Aug, Sep, Oct, Nov, Dec)[((localtime($yesterday))[4])];
$local_yr = (localtime($yesterday))[5];
$local_wdy = (localtime($yesterday))[6];
$local_wdy = (Sun, Mon, Tue, Wed, Thu, Fri, Sat)
[((localtime($yesterday))[6])];
#
printf "%s %s %2d %02d:%02d:%02d %s %d\n",
$local_wdy, $local_mon, $local_mdy,
$local_hr, $local_min, $local_sec,
$zone, 1900+$local_yr;