+sub show_job {
+ my (%columns) = @_;
+ $columns{date} = strftime '%c', localtime $columns{date};
+
+ no warnings 'uninitialized';
+ print <<END
+Problem: $columns{problem}
+Contest: $columns{contest}
+Owner: $columns{owner}
+Date: $columns{date}
+Private: @{[$columns{private} ? 'Yes' : 'No']}
+Format: $columns{format}
+Result: $columns{result} ($columns{result_text})
+END
+}
+