#! perl -wl
$i=sprintf("%04d",int(rand(200))+1);
if(rand 1 <0.5){
    $i='0'.$i;
};
$c=rand 2;
if($c<1){
    $_='_'.$i;
} elsif ($c<2){
    $_=' '.$i;
}
#else no separator

if(rand 1 < 0.5){
    $_='IMG'.$_;
} else {
    $_='DSC'.$_;
}
$_.=".JPG";
if (rand 1<0.5){
    $_=lc$_;
}
print
