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

package P;

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

package main;

print P->new->{t};

##</code><code>##

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

package P;

sub new {
    eval "use Time::HiRes 'time'";
    die $@ if $@;
    return bless { t => time }, 'P'
}

package main;

print P->new->{t};