Select Code to Download

#!/usr/bin/env perl

...
    $result = $_ and $max_date = $date if $date > $max_date;
}
print $result;