print "$name $task\n";
$lang=-f "$home/$name/$task.c" ? 'C' : -f "$home/$name/$task.cpp" ? 'C++' : -f "$home/$name/$task.pas" ? 'Pascal' : '';
$lopen_data->set($lopen_data->append, 0, "$1", 1, $lang);
print "$name $task\n";
$lang=-f "$home/$name/$task.c" ? 'C' : -f "$home/$name/$task.cpp" ? 'C++' : -f "$home/$name/$task.pas" ? 'Pascal' : '';
$lopen_data->set($lopen_data->append, 0, "$1", 1, $lang);