use strict;
use warnings;

use Time::HiRes qw/gettimeofday/;

while (1) {
    my $fname = create_filename_from_current_time();
    print "Filename is '$fname'\n";
}


sub create_filename_from_current_time {
    (my $fname = gettimeofday) =~ y/0-9/etaonirsuy/;
    return $fname;
}

##</code><code>##

Filename is 'taotiaueta.retry'
Filename is 'taotiaueta.retso'
Filename is 'taotiaueta.retsu'
Filename is 'taotiaueta.retuo'
Filename is 'taotiaueta.retuu'
Filename is 'taotiaueta.retya'
Filename is 'taotiaueta.retys'
Filename is 'taotiaueta.reaea'
Filename is 'taotiaueta.reaes'
Filename is 'taotiaueta.reatt'
Filename is 'taotiaueta.reatr'
Filename is 'taotiaueta.reaat'
Filename is 'taotiaueta.reaai'
Filename is 'taotiaueta.reao'