Garmin 60csx Track rename

#!/usr/bin/perl -w
foreach (<*.gpx>) {
$date = substr($_,0,8);
$date = $date . “0000”;
`touch -amt $date $_`;
}