my $rindex = rindex($imagename,'.');
$rindex    = length($imagename) if $rindex == -1;
substr($imagename,0,$rindex) =~ s/\W/_/g;