#!/usr/bin/perl

use warnings;
use strict;

my ($DUE, $AT, $PRIORITY, $MSG, $CONTEXT);

format PROJECT_TOP =
Project report for @* on (Today)

---------------------------
$PROJECT
.

format PROJECT =
@* @* @* @* @*
$DUE, $AT, $PRIORITY, $MSG, $CONTEXT
.