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;
}