#!/usr/bin/perl

if (!$ARGV[0]) {
   print "Usage: agent-unpack <packedagentfile>\n";
   exit(0);
}
use Agent;
$my_agent = new Agent;
{local $/ = undef; $tas = <>}
unpackself $my_agent Agent => $tas;
$agentdate = $my_agent->read(Name => 'Time');
$agentauthor = $my_agent->read(Name => 'Author');
print "Author: $agentauthor Sign Date: $agentdate";

