use strict;
use warnings;

use File::stat;
use Date::Manip;


my $st = stat( 'router.pl' ) or die "Bleah: $!\n";

my $secs = $st->mtime();
print "Your method of interpolation: $s->mtime()\n"; # See?  Wrong.

print "Stat info = ", 
      scalar localtime( $secs ), 
      "\n";  # This is just a reality check.
print "Using the 'epoch' method: ",
      ParseDateString( "epoch $secs" ), 
      "\n";  # This works correctly now.
print "DateCalc method = ", 
      DateCalc( "Jan 1, 1970  00:00:00 GMT", $secs ),
      "\n";  # And this works correctly too.