Create mailattach.pl

lines 22-24 
  unless (-d $dir) {system ("mkdir $dir");}               #Правильно ли?
  $0=~/^(.+[\\\/])[^\\\/]+[\\\/]*$/;                      #Что это?
  chdir $maindir;                                         #Зачем это?
lines 70-71
    system ("/usr/local/bin/ripmime","-i$dir/msg","-d$dir/$mydate");  # Сразу отсеять текстовые вложения и выбрать правильную кодировку  
    system ("/bin/rm -rf $dir/$mydate/textfile*");                    # объединить с предыдущей
line 76
   system ("convmv -r --notest -f koi8-r -t utf8 $dir"); # как проверить первоначальную кодировку ?