タイムスタンプをファイル名に

#20130212 yasu タイムスタンプをファイル名に***************
my $tm_now=time;
$fname =~ s/(^.*\.)/$tm_now\./;
#20130212 yasu タイムスタンプをファイル名に***************
my $tm_now2=time + 1;
$fname2 =~ s/(^.*\.)/$tm_now2\./;
2枚目の画像の名前にはプラス1をつけてある。これを付けないと瞬時の動作なので同じファイル名になってしまう。