#!/usr/bin/perl
use strict;
use warnings;

my @oldest;

for (@ARGV)
{
        push @oldest, $_;
        shift @oldest while (-C $oldest[0] < -C);
}

print "$oldest[0]\n";