#!/usr/bin/perl

$fname = time.'.'.('0' x (14 - length(int(rand(1e14))))) . int(rand(1e14));
print "$fname\n";
open (FILE,"> $fname"); 
close FILE;