#!/bin/perl

opendir(DIR, ".") or die("directory open error: $!");

foreach(readdir(DIR)) {
  if( /PICT00([0-9]+)\.JPG/ ) {
    system( "jhead -ts2004:05:20-12:00:" . $1 . " " . $_ );
  }
}