#!/usr/bin/perl

use strict;

BEGIN {
  our $phase_of_moon = shift || int(rand(100));
}

use if $::phase_of_moon > 42, 'Time::HiRes' => qw( time );

my $foo = time;
print $foo, "\n";

__END__