# test driver

use strict;

require 'money.pm';
require 'rfc822.pm';

use File::stat;

my $m;
foreach $m (.39352903389, 3.9352903389, 39.352903389, 393.52903389,
	    3935.2903389, 39352.903389, 393529.03389, 3935290.3389,
	    39352903.389, 393529033.89, 3935290338.9, 39352903389)
{
    print "$m => ", &beautify($m), "\n";
}

print "                 Now is: ", &rfc822, "\n";
print "This file last modified: ", &rfc822_file($0), "\n";
my $s = stat($0);
print "                  Again: ", &rfc822($s->mtime), "\n";