sub debug {
	my $msg = shift;
	writeLog( $msg ) if $opt->{debug};
}
sub timestamp {
	my $when = shift || time;
    my ( $sec, $min, ... ) = localtime( $when );
    # ...
    return $stamp;
}