#!/usr/local/bin/perl -w

if (@ARGV != 2) {
    print STDERR "Usage: newer file1 file2\n";
    print " exits successfully if file1 exists and is older than file2\n";
    exit 2;
}

sub get_modtime {
    my ($fname) = @_;
    my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, 
	$ctime, $blksize, $blocks) = stat($fname);

    if (! (defined $mtime) && (defined $ctime)) {
	return $mtime;
    };
    if ($mtime < $ctime) {
	return $ctime;
    } else {
	return $mtime;
    };
}

my $fname1 = $ARGV[0];
my $fname2 = $ARGV[1];

if ((-e $fname1) && (-e $fname2)) {
    my $time1 = &get_modtime($fname1);
    my $time2 = &get_modtime($fname2);

    if ((defined $time1) && (defined $time2)) {
	if ($time1 > $time2) {
	    exit 0
	}
    }
}

exit 1;