$tmpfile = tmpFileName($clientattachment); @filespec = split(/\\/,$clientattachment); $filname = @filespec[$#filespec]; $att_file = $current_thread_id.$filename; $att_file =~ s/ /_/g; $att_file =~ s/\//_/g; system("cp $tmpfile $copypath/$att_file");