sub CreateTask()
{
    my $Synopsis;
    my $Comment;
    my $RelTag;

    $RelTag=GetRelTag();
    my $text = $CTask->get();    

    $Synopsis = "$RelTag: $text"; #need to edit so input from text box gets put in
    
    $qst = "ccm task /cr /s \"$Synopsis\" / r $ENV{'USERNAME'} /rel $RelTag /def";
    system("$qst");
print $qst;    
}