все работает, но хочу узнать как сделать правильно что б небыло записи "Use of uninitialized value in string eq"
лазил, лазил везде и не нахожу такого.
собственно $kat может быть или не быть
if ($kat eq "pt") { $razdel="111"; }
elsif ($kat eq "dt") { $razdel="222"; }
print "$razdel";