#!/usr/bin/perl

$base = "20060808_";

@list = `ls -1 -- *jpg`;
$x = 0;

foreach(@list){
  chomp;
  $new = $base . $x . '.jpg';
  print "mv -- $_ $new\n";
  `mv -- $_ $new`;
  ++$x;
}