use strict;
use warnings;

{
    package MY_TIME;
    sub print_sec {
        my $self =shift;
        print $self->[0];
    }
}

use constant ONE_HOUR => bless [3600], "MY_TIME";

ONE_HOUR->print_sec;
__END__
3600