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

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

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