#!/usr/bin/perl -w
#
# file:         lstime
# purpose:      prints mtime, atime and ctime of file(s)
# created:      pasha aug 8-9 1999
# modified:     pasha aug 18 1999
# modification: added ctime
# usage:        lstime <filename(s)>
#

use strict;


my ($atime, $mtime, $ctime);

format STDOUT_TOP = 
atime     mtime     ctime 
.
format =
@<<<<<<<< @<<<<<<<< @<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atime,   $mtime,   $ctime,   $_
.

$= = 9999999;

for (@ARGV)
  {
    if ((undef, undef, undef, undef, undef, undef, undef, undef, $atime, $mtime, $ctime) = stat ($_))
      { write; }
    else
      { print (STDERR "$0: cannot stat $_: $!\n"); }
  }

exit (0);


__END__