#! D:\iw-home\iw-perl\bin\iwperl.exe
my $cgi = TeamSite::CGI_lite->new();
$cgi->parse_data();
print<<"END";
Content-type: text/html
<html>
<title>Testing</title>
<body>
<H2><center>Testing Workflow</center></H2>
#### Construct URL command to launch group task ####
my $invisible_url_cmd = "", $servernm = "";
$servernm = `hostname`;
chomp($servernm);
$invisible_url_cmd = "http://" . $servernm . "/iw-bin/iw_cgi_wrapper.cgi/independent.ipl?taskid=" . $edit_group_task_id . "&is_finish=false";
print "<br> Invisible cgi link - $invisible_url_cmd";
#### Construct URL command to show list of all jobs ####
my $job_list_pane = "";
$job_list_pane = "http://" . $servernm . "/iw-cc/viewjoblist";
print "<br> Job list pane link - $job_list_pane";
#### Construct email message to send to all users of edit task ####
my @users_list = "test\\abc1"; ## for testing only, dont want email to go to real users ##
foreach my $usr (@users_list)
{
$usr =~ s/test\\//i;
$usr .= "\@test.com";
$addresse .= $usr . ",";
}
chop($addresse);
print "<br> Addresse list - $addresse";
#### Trying to create links in Lutos notes email notification ####
$message = "<html>";
$message .= "<head><META content='text/html; charset=iso-8859-1' http-equiv=Content-Type><META content='MSHTML 5.00.2314.1000' name=GENERATOR></head>";
$message .= "<body><a href=$invisible_url_cmd>Click here</a></body></html>";
my $address_list = "$addresse";
my $from = "$prev_authgrp\@test.com";
my $subject = "Task assigned in $wkf_type by $prev_authgrp";
#my $message = "<a href=$invisible_url_cmd>Click here</a>";
my $message = "$message";
my $mail_server = "eagle.test.com";
my($mail_status) = send_email($address_list,$from,$subject,$message,$mail_server);
print "<br> Mail status - $mail_status";
if ($mail_status)
{
print "<br> Error sending email to clients.Ending workflow...<br>";
}
}
</body>
</html>
Before you post, read our: 
