79 	    $oldest = $v0 if $v0 < $oldest;

    79 	    $oldest = $v0 if $v0 < $oldest;

    80 	});

    80 	});

    81 

    81 

    82 	$_ = <<__;

    82 	$_ = <<__;

    83         date: %s

    83         date: %s

    85        total: $seen

    85        total: $seen

    86 not returned: %d (%d%%)

    86 not returned: %d (%d%%)

    87       oldest: %.1f days (%s)

    87       oldest: %.1f days (%s)

    88 __

    88 __

    89 	printf $_, 

    89 	printf $_, 

    90 		scalar(localtime), 

    90 		scalar(localtime), 

    91 		$seen - $returned, 

    92 		$seen - $returned, 

    92 		int(100 * ($seen-$returned)/$seen), 

    93 		int(100 * ($seen-$returned)/$seen), 

    93 		((time - $oldest) / 86400), scalar(localtime $oldest);

    94 		((time - $oldest) / 86400), scalar(localtime $oldest);

    94 

    95 

    95 	exit 0;

    96 	exit 0;