sub settings_smi_edit {
$storeline = $q->param('id');

open(FILE, "info/smileset.txt");
@file = <FILE>;
close(FILE);

foreach $i (@file) {
($number, $image, $name, $text, $used) = split(/\|/, $i);
if ($number eq $storeline) {
@numb = ($number, $image, $name, $text, $used);
}
}
}