-# local $_ = shift or goto &cmd_list;
-# say "Name: ", contest_name;
-# say "Owner: ", contest_owner;
-# say "Start: ", strftime '%c', localtime contest_start;
-# say "End: ", strftime '%c', localtime contest_end;
+ my %columns = $db->contest(shift)->get_columns;
+ $columns{$_} = strftime '%c', localtime $columns{$_} for qw/start stop/;
+ print <<END
+Name: $columns{name}
+Owner: $columns{owner}
+Start: $columns{start}
+Stop: $columns{stop}
+END