#!/usr/bin/perl -w
use strict;

BEGIN {
  Time::HiRes->import('time') if eval { require Time::HiRes };
}

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