open (my $fh, ">>", "status.txt" ) or die $!; print $fh $ticketextstatus; close ($fh);