perl -e 'use Time::HiRes qw|gettimeofday|; my ($sec,$microsec) = gettimeofday(); if (-f qq|foo.file|){`cp foo.file $sec$microsec\.file`} '