#!/usr/local/bin/perl

use Getopt::Std;
use Time::Local;
use Time::localtime;

$offset = time();
@seg = localtime($offset);
print "--$offset--$seg--@seg--\n\n";