if (-e glob("$free_path/$Account::cata_acc/_data/messages/im*")) {

opendir(MESSAGE, "$free_path/$Account::cata_acc/_data/messages/");
@messages = grep !/\.\.?/, readdir MESSAGE;
closedir (LOGDIR);

foreach $message  (@messages) {

($im,$from) = split(/im/, $message);

print <<EOF;
trim=window.open("http://www.teen-reality.com/cgi-bin/members/trim.cgi?account=$Account::cata_acc&session=$Account::session&action=main&from=$from&what=newim","","width=180,height=350")
trim.creator=self
EOF

}#foreach $messages

}#if -e glob im  check if ne im messages
#done checking