use warnings; use strict; use CGI; my $result; eval { my @query = split(/=/, $ENV{'QUERY_STRING'}); my $term = $query[$#query]; my $file = 'd:\\apps\\AETrigger\\' . $term . '.txt'; $result = open (my $fh, '>', $file) ? "Trigger for $term ($query[0]) has been created." : "Error '$!' creating trigger; please contact support."; return 1; } or do { $result = "Error: $@"; }; print <\n\n Trigger Result\n Result:
$result \n HTML