use all qw[strict warnings Time::HiRes Data::Dumper List::Util];