sub mkdir_if_needed
{
    my ($dir) = @_;
    return if -d $dir;
    mkdir($dir,0755) or
       warn "Could not mkdir: $!\n";
    return;
}