if (open(OUTFILE, ... )) { push(@file_did_save, $filename); } else { push(@did_not_save, $filename . ' ' . $!); } #### $config{'image_upload_dir'}.$fntwo #### $config{'image_upload_dir'} . '/' . $fntwo #### use File::Spec::Functions; catfile($config{'image_upload_dir'}, $fntwo)
## $config{'image_upload_dir'}.$fntwo ##
## $config{'image_upload_dir'} . '/' . $fntwo ##
## use File::Spec::Functions; catfile($config{'image_upload_dir'}, $fntwo)