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; }