use POSIX qw(strftime);

my $a0 =  $ARGV[0];
my $a1 =  $ARGV[1];
my $a2 =  $ARGV[2];

if ($a0 eq "time") {

  if($#ARGV != 2) {
    print STDERR "usage: cirba-stat.pl - time arguments always require a total of 3 arguments\n";
    exit 1;
  }
  if(!defined($ARGV[2])) {
    $a2 = "ctime";
  }

  if($a2 eq "ctime") {
    if($a1 eq "now") {
      print time()."\n";
    } else {
      print $a1."\n";
    }
  } else {
    if($a1 eq "now") {
      print strftime($a2,localtime(time()))."\n";
    } else {
      print strftime($a2,localtime($a1))."\n";
    }
  }
} elsif($a0 eq "stat") {

  if($#ARGV < 1) {
    print STDERR "usage: cirba-stat.pl - stat arguments always require a total of 2 arguments\n";
    exit 1;
  }

  my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($a1);
  if(!defined($ARGV[2])) {
    $a2 = "%a %b %e %T %Y";
  }

  if($a2 eq "ctime") {
    print $mtime."\n";
  } else {
    print strftime($a2,localtime($mtime))."\n";
  }

}

 # print time();
 # $timeStr = strftime($a2,localtime($a1));

exit 0;