#!/usr/bin/perl -w
     use strict;
     eval qq{ use Time::HiRes qw(time); };
     print "\n";