exiftoolを使ってff11のスクリーンショットにexifのCreate Dateを書く

#!/usr/bin/perl

while($tmp=){
        if($tmp=~/...(..)(..)(..)(..)(..)(..)..jpg\n/){
                print "exiftool -CreateDate='20$1:$2:$3 $4:$5:$6' $tmp";
        }else{
                print "error\n";
        }
}