# module Formats.pm
use strict;
package Formats;

sub admin_usage_reports {

format admin_usage_top =
A D M I N   U S A G E
Date: @<<<<<<<<<<
$report_date

Username    Login    Logout    Activity
----------------------------------------------------------
.

format admin_usage_data =
@<<<<<<<    @<<<<<<< @<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<<
$usr, $login, $logout, $activity
.

}

# main script
Formats::admin_usage_reports;
$^ = "Formats::admin_usage_top";
$~ = "Formats::admin_usage_data";

write;