#! /usr/local/bin/perl -l

package P;

sub new {
    use Time::HiRes 'time';
    return bless { t => time }, 'P'
}

package main;

print P->new->{t};